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BEEBUG MAGAZINE 

B vcn Decr T >| First of all, do remember that this issue of the magazine covers the 
"^-^ c oem | two months of August and September. The next issue, which will be 
AA A | that for October, should be with you by the beginning of that 

Q Planetoid R Red Moon $ Snapper T Swoop | month. This August/September issue seems to be particularly 

U Tarzan V Valfdv packed with programs, articles and reviews, and we have even Used 
a few pages normally reserved for the supplement. 

In this issue, the page numbering has been changed to include the 
supplement, and pages are now numbered continuously from 

| beginning to end. We have tried various page numbering schemes 

| for the supplement, but this seems to be the most helpful. 


FREE PERSONAL ADS 

As part of a move to add to the advantages of BEEBUG 
membership , we have decided to offer members the opportunity 
to advertise in the magazine completely free of charge. This is for 
personal (not business) ads only, and will enable you to sell any 
unwanted items of software and hardware. Please keep your ads as 
short as possible and send them in to arrive by the 12th of each 
month. | 

This will take effect with the October issue. We will endeavour to 
include all ads received but we do reserve the right to edit or reject 
those that we feel are unsuitable. Take advantage of BEEBUG and 
advertise to the many thousands of BEEBUG members. Send details 
of your free ad to PERSONAL ADS, BEEBUG, Dolphin Place, 
Holywell Hill, St Albans, Herts ALT 1EX. 

We will still continue to accept members’ classified business ads at a 
charge of 30p (inc VAT) per word. Send details of your ad with a 
cheque for the required amount to the same address as above. 

This is just the first of a number of new services that we are 
considering for BEEBUG members. We are also seeking ways in 
which we can respond more to the views and opinions of members. 
Apart from individual letters and phone calls, which are very useful 
in this respect, we do also carry out regular selective surveys of 
members, to keep us informed. In this way, we aim to improve 
further all aspects of BEEBUG, still Britain's largest independent 
computer user group and the only national user group catering for 
users of the BBC Micro and Master series. 


PROGRAM CLASSIFICATION 
All programs in the magazine, and on the magazine cassette/disc, 
are marked with the symbols shown below. An uncrossed symbol 
indicates full working, a single line through a symbol shows partial 
working for that configuration (normally some modifications will be 
required), and a cross through a symbol indicates a program that 
will not work on that type of system. 


Electron C 


Inter-word 


Posidroid 


Basic I 

Basic Il Disc 

Tube Cassette 
Master 128 


Model B+ 


Disc Manager 


Games by Phone 


By the end of August 
Micronet promises to have a 
multi-user game up and 
running for all Micronet 
subscribers. Shades is the 
name of the game and it 
will cost players 99p an 
hour to have a go. Playing 
at off peak times will mean 
that calls are charged at 
local rates. Micronet is on 
901-278 3143. 


The much respected 
adventure game software 
house Level 9 is to about 


to launch a multi-user game 
too. Details are still to 
be decided but the game 
Will feature over ten 
thousand locations, and a 
thousand computer 
controlled people to 
interact with. The game 
also has its own internal 
history and calendar 
running at twelve times 
'real' time speed. Further 
details from Level 9 on 
0734-595759. 


Master Modem 


Modem House - the man- 
ufacturer of the Voyager 7 
modem - has now obtained 
BABT approval for that 
modem and released an 
internal modem for the 
Master. 


The Voyager 7 modem 
costs £103. The Master 128 
has provision for a modem 
to plug in inside the case. 
The internal modem is also 
going to cost £193. This 
isn't surprising as rumours 
have it that the internal 
modem is just a Voyager 7 
circuit board with plugs to 
fit the Master. Despite 
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this the BABT approval of 
the internal modem may take 
some time as this involves 
testing all possible 
combinations and versions 
of the computer as well as 
the modem. The internal 
modem will be supplied with 
Soft Machinery's Commsoft 
ROM -= the same software as 
supplied with the BEEBUG 
Magic Modem. Further 
details from Modem House on 
0392-213355. 


User Ports for Users 
WD Interfaces has 
released a range of 


equipment to help BBC micro 
users experimenting with 
building their own 
hardware. The Multiple User 
Port Adaptor provides from 
4 to 32 extra User Ports 
derived from the 1MHz bus. 
The | ports are fully 
buffered and plug com- 
patible with the Beeb's own 
User Port. The base address 
of each pair can be set as 
desired. The Multiple User 
Port adaptors cost from 
£110. 


If you are satisfied 


with a single User Port 
then the User Port Monitor 
may help you. This 
duplicates the User Port 
connector in a separate 
plastic case. An LED 


monitor light and 4mm jack 
plug is provided for each 
of the eight data lines 
too. The User Port Monitor 
costs £28. WD Interfaces is 
on (Ø532) 864328. 


Let Your Micro Do the Walking 


A new Electronic Yellow 
Pages telephone directory 


has 
British Telecom to 


been announced ` by 


come 
into service in January 
next year. The EYS will 
comprise a central database 
accessible by anyone with a 
suitable viewdata terminal 
and that, of course, will 
include BBC micro owners 
with a modem. Details from 
the system's designer, 
Intercom Data Systems on 
04862-26951. 


Master Mouse 

The AMX mouse and 
software from AMS is now 
available for the Master 


128. The Master version of 
the mouse comes with the 
AMX Super ROM on disc to 
download into the Master's 
Sideways RAM. Pagemaker is 
also now available for the 
Master. Details from AMS on 
0925-413501. 


Acorn Reverses the Charges 

Acorn Computers has 
revealed that early 
versions of the Master 128 
have a problem with the 
battery backed RAM. The 
design of the Master may 
cause reverse charging of 
the battery at the end of 
the battery's life. This 
applies to Masters supplied 
by Acorn up to the end of 
May 1986. 


A replacement battery 
package for all Masters 
affected is available free 
of charge through any Acorn 
dealer. Dealers will either 
dispatch the upgrade kit 
for fitting by users, or 
will fit the upgrade 
themselves if the Master is 
taken back to the dealer. 
Acorn is on Ø223-214411. 


el 


Masterfile and the Master 


SETTING DRIVE ZERO 

Because Masterfile is 
written in Basic, and uses 
fully 'legal' code, it is 
directly transferable to 
the Master. There is just 
one single modification 
required on certain 
versions of Masterfile, and 
this concerns the setting 
of the default drive in the 
initialisation routine. To 
do this, place your program 
disc in the drive, and 
proceed as follows: 

*ACCESS LF <Return> 

LOAD "LF" <Return> 
Now find the line that 
contains *DRIVE @ and 
delete any other text, e.g. 
REM statements, on the same 
line. Make sure that the 
line ONLY contains *DRIVEØ. 

SAVE "LF" <Return> 

*ACCESS LF L <Return> 


AUTOMATIC DATE READING 
Since the Master knows 
not only the exact time of 
day, but also the day, 
month and year, it seems an 
annoying duplication of 
effort that Masterfile 
Master users should have to 
tell the machine what it 
already knows each time 
Masterfile is booted up. 


The short function 
listed later will read the 
Master's clock/calendar and 
put the result in a format 


Augu 


ist/September 1986 


compatible with all 
versions of  Masterfile 
(i.e. dd.mm.yy). In fact, 
all but the earliest 


versions of Masterfile I 
allow a free format date 


input. You can then use the 
function to set the 
Masterfile date variable 
(S&CØØ) accordingly. There 
is also a statement to 
print the date to the 
screen. The function will 
work just as well in your 
own programs, provided that 
you are already in mode 7 
when it is called. 


You will see that the 
date is read in from the 
calendar chip using TIMES 


rather than OSBYTE calls. A 
small snag with this is 
that the month is read in 
string format (i.e. "Jul" 
instead of "07"). The new 
routine translates this in 


lines 2038 to 2040 using 
data contained in line 
2050. Any necessary 


adjustment, by padding out 


months 1-9 with a leading 
zero to keep to the 
dd.mm. yy format, is 


performed in line 2940. 


If the routine is run 
on a standard model B, it 
will throw up a "Type 
mismatch" error. If you are 
likely to be using 
Masterfile on both BBC Bs 
and Masters, you may wish 
to add the following line 


which exits from the 
function if a Master is 
present: 

2015 IF INKEY (-256)<>253 


THEN ="" 


To enter the routine 
into Masterfile, you should 
proceed as follows: 

Insert program disc 


*ACCESS LF 

LOAD “LE" 
Type in the routine. Now 
locate the line that 
contains S&CQgz"" and 


replace 


this line with 
S&CØØ=FNsetdate. Should 
your program not contain 
such a line, simply insert 
it anywhere at: the 
beginning of the programe. 
Now save the modifications 
with: 

SAVE "LE" 

*ACCESS "LF" L 

Test the routine 
and the job is done. But 
please note that when you 
are testing the combined 
routine, your new routine 
will be overwritten when 
program LF chains in 
LFmain. To avoid this, you 
could ensure that the disc 
drive has no disc in it 
when you  test-run the 
program. Then press Escape 
to exit the attempted load. 


2000 DEF FNsetdate 

20410 REM Set date on Master 
2020 monthS=MIDS (TIMES,8,3) 
2030 month=%: REPEAT: month= 

month+1:READ name$:UNTIL na 
meS=months 

2040 monthS=STRS (month) : IF 

LEN (monthS) =1 month$="Ø"+mo 
nth$ 

2050 DATAJan,Feb,Mar ,Apr ¿Ma 
y,Jun,Jul,Aug,Sep,Oct,Nov,D 


ec 
2Ø6Ø=MIDS (TIMES ,5,2)+"."+mo 
nthS+"."+MIDS (TIMES, 14, 2) 
p 


The line: 
IF INKEY (-256) =253 THEN 
PRINT TAB(7,22) CHR$(134); 
"Today's Date:";CHRS (131); 
S&CØØ:A=INKEY (100) 
will display the newly 
created date, and pause for 
one second so that you can 
admire it. Should you wish 


to incorporate this line, 
simply insert it immediate- 
ly before the line con- 
taining: 

program nameSz"......... 


The 512 upgrade for Acorn’s Master Series at last 
offers the potential of a real business system 


from Acorn. Peter Rochford has been putting the 


new machine through its paces. 


Product : Master 512 Upgrade 
Supplier : Acorn Computers Ltd 
: Cambridge Technopark, 
: 645 Newmarket Road, 
: Cambridge CB5 8PD. 
: Tel. 0223-214411 


Price : £399 


In the world of business computing, 
very few machines these days operate with 
an 8 bit microprocessor. The new 
generation of true 16 bit chips has far 
greater processing speed and addresses 
larger amounts of RAM, allowing much more 
powerful software to be run. The market is 
dominated by IBM with its PC (although not 
true 16 bit) and variants, along with the 
countless IBM clones and compatibles from 
other manufacturers. All these machines 
and many others use MS-DOS in one version 
or another, and this has virtually become 
the standard operating system on small 
business computers. 


THE MASTER 512 

Acorn have now released their first 16 
bit machine, the Master 512 that comprises 
a Master 128, with a co-processor running 
an 80186 microprocessor at 1ØMHz and with 
512k of RAM. Existing Master owners can 
upgrade their machine by buying the 512 
board and plugging it into the main PCB, 
aS with the 8 bit Turbo board, reviewed in 
BEEBUG Vol.5 No.2. 


The Master 512 uses an operating system 
called DOS Plus from Digital Research that 
supports IBM PC-DOS, MS-DOS and CPM/86 
applications. Supplied with the Master 512 
are two manuals, a mouse, three system 
discs containing the bundled GEM software 
and the bootable operating system disc. 
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BOOTING THE SYSTEM 
Activating the 512 
quite straightforward. 
Plus disc which is 
placed in drive Ø. After a  *CONFIGURE 
TUBE, you press Ctrl-Break and the screen 
displays the Digital Research name and 
logo. At this point you leave the Master 
OS and Basic as the bootstrap ROM in the 
co-processor takes over, loading the DOS 


Plus operating system from disc into the 
512. 


co-processor is 
The bootable DOS 
in ADFS format, is 


DOS PLUS 


It is not within the scope of this 
review to explain fully the workings of 
DOS Plus as it is a powerful and 
sophisticated operating system. However, 


users of the Acorn ADFS will feel very 
much at home with its file handling 
because of its Similar hierarchical 


structure. Many commands are similar, and 
adapting to it presents little problem - 
apart from the constant desire to put a 
"star" in front of every command which it 
does not need! The Master's on-board clock 
is used by DOS to automatically date and 
time stamp files as they are created or 
updated. 


As with the ADFS, both sides of a disc 
are used and two floppies are supported as 
drive A and B, olus a hard disc, drive C. 
Although not mentioned in the manual, a 
RAM disc can be used as part of the filing 
system via a utility called MEMDISK and 
this is designated as drive M. 


Earlier, I said that once DOS is loaded 
you leave the Master OS. This is not 
Strictly true, as the 512 still uses the 


Master I/O processor to take care of the 
screen, ports and keyboard etc. DOS Plus 
for the Master 512 is an extended version, 
modified especially for Acorn, and 
communicates with the Master OS. To the 
user all this is transparent, but you can 
still communicate directly with the Master 
OS if required via a STAR utility. What 
you can do has limitations obviously, but 
you can use FX calls (with caution!) and 
things like *HELP and so on. 


THE BOOT DISC AND UTILITIES 

The bootable DOS disc contains a large 
number of files apart from DOS Plus 
itself. These are utilities for use with 
DOS and many are unsupported by the 
documentation. There is however a large 
on-screen help facility on the disc that 
gives brief details and examples of their 
uses. 


The DISK file is a formatter, verifier 
and copying application. This enables the 
backing up and formatting of discs in a 
number of different formats. These are 
listed in Fig. 1. The ability to read and 
write to discs in a large number of DOS 
and CPM formats is a very important and 
impressive feature of the the Master 512. 
You will notice from the list that Acorn 
have their own DOS format giving 8ØØK on 
one disc using both sides. 


Those who are interested in 
transferring their existing text files to 
and from the 512 will be pleased to know 
that this is possible via a special 
utility. In fact, this review was written 
with 'GEM Write' on the 512, and the file 
transferred to ADFS format and read into 
View before transferring via modem direct 
to BEEBUG. 


Leaving the 512 and returning to the 
Master 128, is achieved by calling a file 


on the utility disc called NOTUBE which 
cleanly exits and places you back with the 
I/O processor 


and Basic. This file needs 


888K DOS ACORN DOS Format 

36ØK DOS IBM 512 x 9 

720K DOS TANDY 512 x 9 

729K DOS OLIVETTI 512 x 9 

72ØK DOS NIMBUS 512 x 9 

4AØØK CPM ACORN Z80 Format 

320K CPM IBM 512 x 8 

720K CPM ALTOS 512 x 9 
Figel 


Bootable DOS disc 


to be transferred to your other working 
discs but is not entirely necessary as you 
can press Break and then at the star 
prompt, enter *CONFIGURE NOTUBE and do a 
Ctrl-Break. 


Further utilities of note on the boot 
disc are those for COLOUR and ALARM. 
COLOUR lets you change the background and 
foreground colours of the screen to any 
supported by the Master. ALARM is most 
intriguing. As it suggests, it enables 
alarms to be set up and run as background 
tasks whilst you get on with something 
else. A number of these may be set and 
when activated produce a rather unmusical 
melody along with the message previously 
entered displayed on the screen. 


Under the heading of utilities I should 
make mention of the fourth disc supplied 
with the 512. This contains several other 
undocumented utilities along with a SETUP 
application for configuring GEM. Amongst 
the utilities is a Z80 emulator program. 
When loaded in, this enables CP/M-89 
applications to run, albeit at a clock 
rate of only 1.5Mhz. 


THE GEM COLLECTION 
Two of the discs supplied with the 


Master 512 contain the GEM bundled 
software. GEM stands for Graphics 
Environment Manager and it is, to use a 
common buzzword, a WIMP system (Windows, 


Icons, Mouse, Pointer). I imagine most 
Beeb owners are now familiar with this 
style through the AMX software or possibly 
that of the Apple Mac. 


The mouse supplied with the 512 plugs 
into the user port. The one I had for this 
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review is not the one that will be 
supplied with the final package, I am 
pleased to say, and in fact, I used my own 
Wigmore Megamouse which worked perfectly, 
although GEM only requires a two-button 
mouse. 


The GEM Collection comprises GEM Desk 
Top, GEM Paint and GEM Write. Taking GEM 


Desk Top first, this is a file management 
system using the mouse and drop-down 
menus. This enables the selection and 
manipulation of files from discs without 
resorting to the use of DOS at system 
level. It is delightfully simple to use. 
Included amongst its many facilities are a 
clock/calendar with alarm, a calculator 
that has memory functions, a 'Snapshot' 
facility for saving screens and a print 
Spooler. Like the rest of GEM, GEM Desktop 
is in 80 column with two colours. You can 
reconfigure the system to give 4 colours 
and 80 column for all parts of GEM, but 
this is a 'fudged' Master mode 1 screen 
and the definition is really rather poor. 


GEM Paint is an artwork or image creat- 
ion application similar to things like MAC 
Paint, AMX ART, Pagemaker etc. There are 
the usual drawing facilities, patterns, 
fills, various brushes and so on. There is 
a choice of fonts for text and a large 
selection of patterns that can be loaded 
in from disc. Like Desk Top, there is also 
the facility to save screens via 
'Snapshot', and load in others saved from 
any section of GEM. 


GEM Write is the word-processor part of 
GEM. This, like GEM Paint, is selected 
from GEM Desk Top. If you use View or 
Wordwise then you know already the kind of 
thing to expect. It has very similar 
editing facilities with the usual Move, 
Copy, Search and Replace. It operates in 
80 columns and can be controlled via 
mouse, function keys, or, Ctrl and letter 
keys, the latter being identical to those 
used in Wordstar. 


There are certain features in GEM Write 
that you won't find in View or Wordwise. 
italic and bold are shown on screen, as 
are paragraph markers too. More impressive 
though, is the ability to insert images 
created in GEM Paint into the text. 


Amazingly for a system with 512k of 
RAM, text in GEM Write cannot be printed 
from memory, but is printed via the 


8 


‘Output ' 
from disc. 
amount of text that can be held in memory 


application provided, 
Another 


Straight 
surprise is that the 


amounts to only a few pages, the rest 
being held in 'spill"' files on disc. This 
is no fault of the Master 512 but rather 
that of GEM which gobbles up a massive 
amount of RAM. 


IBM COMPATIBILITY 


Acorn do not claim that the Master 512 
is an IBM compatible or indeed a clone. It 
will run applications for the IBM however, 
but with limitations. Emulating the screen 
modes of the IBM is done with a utility on 
the boot disc. This will provide all the 
modes available on the IBM Colour Graphics 
Adaptor but modes Ø to 3 which allow eight 
colours on the IBM have only two colours 
on the 512. Another thing missing is the 
lack of an extra brightness level for 
emphasizing. Acorn have got round this by 
the inclusion of an extra bold-faced 
character set, although I must say that 
the legibility is not that good. 


I did, during the course of this 
review, lay hands on several IBM software 
packages to run on the 512. Most 


interesting, and probably the most povular 
around, is Lotus 123 which ran perfectly, 
being a Release 1 version. Release 2 will 
not work because of the disc protection 
built into the software. Acorn tell me 
that disc protection and hardware 
dependent features are the main limiting 
factors for certain  IBM software not 
running on the Master 512. They do claim 
however, that 68-78% of IBM software will 
run, and they intend to publish a list 
which will be available shortly from Acorn 


dealers. 
—> 28 
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nd looking after files on disc 
Bernard Hill's Disc Manager will take 
laborious and time consuming, 
care of all your needs. 


When using a disc system, how often 
have you wished that the *CAT or *INFO*.* 
commands were more versatile? The first is 
too brief for detailed use, the second 
scrolls past and you've lost the details 
you wanted. In any case, neither orders 
the files in any really sensible way. If 
you're like me you have a disc with 
various files on, the names give no 
indication of function, and even when 
you've found out their function, deleting 
or renaming is a tedious chore of 
unlocking, rechecking, deleting... 


The program on which this article is 
based arises directly from my own 
frustrations. It enables many file 
operations to be specified and checked and 
then carried out with a single command. 


On running the program, the display 
clears to a mode 7 screen with information 
about the drive specified, the number of 
files, and, if they have been specified, 
the auto-boot option and disc title. Up to 
20 files are then exhibited on the screen. 
Locked file names appear in green and all 
files have their length, load, execution 
and disc addresses shown. The cursor has 
moved to the first file under a column 
labelled A (for 'Action'). This cursor can 
be moved among the files with the cursor 
keys, either one at a time or 29 (a 
screenful) at a time. Now a Single press 
of a key brings a choice of actions of two 
basic types: immediate actions, and 
actions on individual files which are 
delayed until the "go" command is given. 


THE IMMEDIATE ACTIONS 
Esc: Stop the program 
H: Display a help screen. 
fø-f3: Re-catalogue with drive 0-3. 
N: Re-sort the files into alphabetic 
order, by directory plus name. 
O: Re-sort the files into the order 
on which they occur on the disc. 
-: Re-sort the files into descending 
order of size. 
: Ditto, but ascending order. 
Ctrl-@: Compact the disc, and re-run the 


program. For this to work the 
program must be saved on the disc 
under the name "DISCMAN" 

S: Show a disc "map". For  80-track 
discs mode 3 is selected, mode 6 
for 48 tracks. Each track is shown 
horizontally, and the 198 sectors 
on each are vertical. The first 
two sectors are marked "C" as they 
are the catalogue area. The file 
opposite the cursor is shown in 
white, other files in grey. Files 
marked for deletion (see below) 
are shown as empty boxes and files 
marked to be transferred to tape 
are shown with a cassette symbol. 
This options enables you to see 
the fragmentation of the disc and 
so decide whether it is necessary 
to compact the disc. 

Ctrl-G: Go (execute the delayed actions - 
see below) 


The program may be used as a menu as the 

following commands are available: 

Ctrl-C: CHAIN the file opposite the 
cursor. 

Ctrl-R: *RUN the file. 

Ctrl-E: *EXEC the file. 


THE DELAYED ACTIONS 

This group of operations is on 
specific files and is not executed until 
Ctrl-G is pressed. The "A" column on the 
screen shows the action intended. 

X: Mark for deletion. Note that this 
operation acts on locked files 
also, unlike the standard DFS 
command. 

Ø-3: Mark for *COPYing to another disc 
: Mark for backup to tape, allowing 
an unattended, and selective, bulk 
back-up from disc to tape. Note 
that the filename on tape will also 
contain the directory: e.g. 
"S. FILE". All file transfer 
operations can be on files of any 
size. 
: Mark for locking or unlocking 
: Mark for *DUMPing. Very useful when 
you've forgotten what a file was! 
R: Mark for rename. On a press of R 
the cursor moves to the beginning 
of the file name (which is now red) 
and allows the name to be overtyped 
with the new name. Note that the 
name is replaced character by 
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character and not completed until 
<Return> is pressed, at which point 
all the old characters not changed 
are reinstated, thus allowing easy 
changing of the directory alone. 
Characters can be erased by 
replacing them with spaces. Just as 
with deletions, the lock status of 
the file is ignored. 


Now press Ctrl-G and watch it happen! 
First the transfers to tape take place. 
Since this can be a lengthy operation some 
guide is given to progress in the form of 
a disc map with sectors ticked off as they 
are completed. Afterwards come all the 
other operations, the order of actions 
being that of the last-displayed screen. 


PROGRAM CUSTOMISING 
Since the program is large it uses 
part of the DFS workspace to store some 
arrays. If you are using it on the Master, 
replace line 220 with: 
220 DIM sec 799, page 255,new 255 


It is very useful to have this program 
residing in ROM. Before you use ROMIT (or 
equivalent), to make a RFS image, replace 
line 2719 with: 

2710 *K.0X$-&80:Y$-&3:CALL&FFF7|M 
* ROM | MCH. "DISCMAN" | M 


ERROR REPORTING 


It is possible that the program may 
stop with DFS errors (e.g. *COPY to a disc 
which contains a locked file of the same 
name). In this case the program will stop 
with the usual error message. To reset 
everything, press Break (or re-run the 
program). The communication between 
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runs of the program is via the 


subsequent 
resident integer variable D$. If this has 
the value Ø to 3 then this is taken as the 
number of the drive to be catalogued. If 
you have no formatted disc in any of these 
drives then the program will hang or give 
a drive error. Set D$ and re-run. If you 
have a single drive you may like to 
replace line 290 with D$-0. 

The program conforms to the normal 
Acorn DFS single density format. A 
separate version to cope with the Watford 
DFS 62 file catalogue is also included on 
this month's magazine cassette/disc. 


REM PROGRAM Disc Manager 
REM VERSION BØ.3 
REM AUTHOR Bernard Hill 
REM BEEBUG AUG/SEPT 1986 
REM PROGRAM SUBJECT TO COPYRIGHT 
6Ø : 
MODE 7 : HIMEM=& 4000 :m=31 : *DISC 
*FX4,] 
*FX180,64 
*FX225,159 
*FX229,] 
*FX2] 
VDU23,255,& 7F7E; & TETE¡S JE 7E ; & 7E 7E ; 
VDU23,254,&1515;&1515;&1515;&1515; 
VDU23 , 253 ,&637F; &6363; $6363; &7F63; 
VDU23,252,&677F; & 7E66; &667E; &7F 67; 
VDU23,251,3,6,12,&D8,&70,32,9; 
DATA "", (Load) , (Run) , (Exec) 
sec=& 1300: page=& 1200 :new=& 1400 
DIM lock m,cmd m,P m 
DIM code 54,08(1) 
DIM name$ (m) , len$ (m) , 10$ (m) , ex$ (m) 
DIM beg$ (m) ,boot$(3):RESTORE 219 
FOR i=Ø TO 3:READ boot$ (i) ¿NEXT 
PROCasmb] :p=page+8:p$ (Ø) ="s" 
IF D%<Ø OR D%>3 THEN D$-0 
PROCrdsec (D$,Ø, 1 ,page) :pP$ (1) =" " 
nf-page?5 DIV 8:DS=CHRS (48+D%) 
page? 4=0:TS=FNstr (page) 
boot=(page?6 DIV 16) AND 3 
ns=256* (page?6 AND 3)+page?7 
IF ns>4ØØ THEN mode=3 ELSE mode=6 
FOR i=] TO nf:10%(1)=FNw(p,pt+6,4) 
ex% (i) =FNw (p+2,p+6 , 64) 
388 len$(i)-(p!4 AND &FFFF) + 65536* (( 
p?6 DIV 16) AND 3) 
399 beg% (i) =p?7+256* (p?6 AND 3) :p=p+8 
400 NEXT 
414 PROCrdsec (D%,8,9,page) :p=page+8 
420 FOR i=] TO nf:P?i=i:cmd?i=32 
430 b$=FNuc (CHRS (p?7 AND &7F))+"." 
440 lock?i=p?7 DIV 128:p?7=13 
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450 names (1) =b$+$p:p=p+8 : NEXT 
460 page?8=Ø:TS$=FNstr (page) +T$ 
470 PROChead:PROCsort ("P?") 
A8Q f=1:REPEAT PROCdisplay (£) :c=GET 
494 IF c>96 AND c<123 THEN c=c-32 
500 IF FNcmd(c) THEN cmd? (P?f)=c 
519 IF c=@ THEN PROCcompact 
520 IF c=3 THEN PROCstop (P?f) 
530 IF c=5 PROCexec ("EXEC" , nameS$ (P?f) ) 
540 IF c=7 THEN PROCgo 
550 IF c=18 PROCexec ("RUN",name$ (P?f)) 
560 IF c-27 THEN PROCstoo (Ø) 
570 IF c=138 THEN f=FNmin(f+1,nf) 
580 IF c=139 THEN f-FNmax(f-1,!) 
590 IF c=137 THEN f=FNmin(f+2Ø,nf) 
600 IF c=136 THEN f=FNmax(f-2Ø,1) 
610 IF c=45 THEN PROCsort ("-len$") 
620 IF c=43 THEN PROCsort ("len%") 
630 IF c=79 THEN PROCsort ("beg%") 
640 IF c=78 THEN PROCsort ("nameS") 
650 IF c=82 THEN PROCnewname (£) 
660 IF c=83 THEN PROCusage (P?f , TRUE) :V 
DU22 ,7: PROChead 
670 IF c=72 THEN PROChelp 
680 IF c>149 THEN D%=c-159:RUN 
690 UNTIL FALSE 
700 : 
1000 DEFPROChelp:CLS:RESTORE 1050 
1010 cS-STRINGS(21," ") 
1020 REPEAT READ aS,bS,c$ 
1030 PRINTaS,TAB(19) ;b$;TAB (18) ;c9 
1949 UNTILbS="R":0ldf=-2Ø:PRINT"Any key 
to return...";:x=GET:ENDPROC 
1050 DATA Actions:,fØ-f£3,Change drive Ø 
-3 
1860 DATA ,~ v,Move 1 file 
1078 DATA ,[ ],Move | page 
1080 DATA ,N,Sort name order 
19090 DATA ,O,Sort disc order 
1100 DATA ,-,Sort descending size 
11190 DATA ,+,Sort ascending size 
1120 DATA ,S,Show file on disc 
1130 DATA ,Ctrl-G,Compact disc 
1140 DATA ,Ctrl-G,Execute file commands 
115@ DATA ,Ctrl-R,*RUN the file 
1169 DATA ,Ctrl-E,*EXEC the file 
1178 DATA ,Ctrl-C,CHAIN the file 
1189 DATA ,Escape,Stop,Files:,X,Delete 
1190 DATA ,"9-3,T","Copy to disc 0-3,Ta 
1200 DATA ,"L,U","Lock,Unlock",,?,Dump 
1210 DATA ,R,Rename 
1220 : 
1230 DEFPROCrdsec (d,t,s,a) 
1240 ?&70-d:!&71-as: ?&79-&2] 
1250 1875=810000* (256*5+t) *&5303 
1260 AZ-&7F:X$-&70:Y$-0: CALL— 1 5: ENDPROC 
1270 : 
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1280 DEFFNw(x,y,n):z-!x AND &FFFF 

1299 IF ((?y DIV n) AND 3)=0 THEN =z EL 
SE -zt&FFFF0000 

1300 : 

1310 DEFFNstr (addr):LOCAL i,a$:i--] 

1320 REPEAT i=i+1 

1330 IF addr?i>@ THEN aS=aS+CHRSaddr?i 

1340 UNTIL addr?i-0:-a$ 

1359 : 

1360 DEFENcmd (n) 

1370 RESTORE 139Ø:REPEAT READ ok 

1380 UNTIL n=ok OR ok=-1:=n=ok 

1390 DATA 32,48,49,50,51,63,76,84,85,82 

1400 DATA 88,-1 i 

1410 : 

1420 DEFPROCsort (aS) :LOCAL P%,1%,J%,T%, 
FS:CLS: PY=nf-1:IF P3%=Ø: ENDPROC 

1430 VDU31,15,8,136:PRINT"Sorting...."; 

1440 REPEAT: F3=TRUE:FOR 1%=1 TO P$ 

1450 IF FNa(I%) >FNa(1%+1) THEN TEZ-P?I$: 
P?I2-P?(I241):P?(I241) T$ :F3=FALSE 

1460 NEXT: P3=P3-1: UNTIL F3:f£=1:0ldf=-29 

1470 ENDPROC 

148Ø : 

1499 DEFFNa (x) =EVAL (aS+" (P? ("+STRSx+") ) 
n 

) 

1500 : 
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1510 DEFPROChead : VDU26 , 38:CLS : @3=2 

1520 sS=CHRS132+CHRS157+CHRS135+CHR$1 41 
+"Drive "+DS+" "+STRSNf+" file"+oS ( 
—(nf=1))+" "+boot$ (boot) 

1530 PRINTsS'sS'LEFTS (s$,3) ;SPC7; 

1540 IF TS<>"" THEN PRINT"Title : "+TS 
ELSE PRINT 

1550 PRINTCHRS129;CHRS157;CHRS135"NAME" 
; TAB (14) ; "LOAD" ; TAB (21) ; "EXEC"; TAB (27) ;" 
LENGTH"; TAB (34) ¿"LOC A" 

1560 VDU28,98,23,39,4:01df=-28 : ENDPROC 

1578 : 


1589 DEFPROCdisplay (n):LOCAL i, 

1590 IF nf=Ø THEN ORINETAB (IG) "NG files 
" : ENDPROC 

1600 IF (n-1) DIV 20-(oldf-1) DIV 20 TH 
EN 1720 

1610 CLS:FOR i=(n-1)DIV2Ø*2Ø+1 TO FNmin 
( (n- 1) DIV20* 20* 20 ,n£) :p=P?i 

1620 IF lock?p THEN aS=CHRS13@ ELSE des 
CHRS131 

1630 @%3=2:PRINTi; 

1640 IF cmd? (P?i)<>82 THEN PRINTaS;name 
$(p); ELSE VDUl29:FOR r=Ø TO 8:VDUnew? (9 
*P?i+r) ¿NEXT 

1650 PROChex (133,10%(p) AND &FFFFFF,6) 

1660 PROChex(32,ex$(p) AND &FFFFFF,6) 

1678 PROChex (135,1en% (p) ,6) 

1680 PROChex (134 ,beg$ (p) ,3) 

1698 VDU135,cmd?p 

1700 IF i MOD 2Ø<>Ø THEN PRINT 

1710 NEXT:oldf-n 

1720 VDU31,38, (n-1) MOD 20,cmd? (P?n) ,8 

1730 ENDPROC 

1740 : | 

175Ø DEFPROCstop (n) 

176Ø *FX4 

177Ø *FX225,1 

178Ø *FX229 

1790 VDU26,30,12:PROChwm 

1800 IF n>Ø THEN CHAIN(":"+DS+". "+nameS 
(n)) 

1810 END 

1820. : 

1838 DEFFNuc (s$) 

1840 IF s$>="a" AND Sume " THEN -CHRS( 
ASCs$-32) ELSE =s$ 

1850 : 

1860 DEFFNmax(a,b):IF a» THEN=a ELSE=b 

1870 DEFFNmin(a,b):IF a«b THEN-a ELSE=b 

1880 

1890 DEFPROCusage (n,p) 

1900 LOCAL i,s,u,t:!sec-&20204343 

1918 VDU22,mode,23;11,0;0;0;0 

1920 FOR s-4 TO 796 STEP 4 

1930 sec!sz&20202020:NEXT:uz2 

1940 IF nf=Ø THEN 2039 

1950 FOR i=1 TO nf 

1960 end=beg%(i) + len$(i) DIV 256 

1970 IF len%(i) MOD 256=Ø AND len%(i)<> 
Ø THEN end=end-1 

1980 FOR s=beg%(i) TO end 

1990 sec?s=255+(i<>n) 

2000 IF cmd?i=88 THEN sec?s=253 

2010 IF cmd?i=84 THEN = 

2020 u=u+l sNEXT: NEXT: @%=Ø 

2030 PRINT''"Drive ";D$;SPC4;nf;" files 

Title:";T$'"Filename :"nameS(n) ' "Track 
S ------ >": @3=18:VDU32 


2040 IF mode=3 THEN PRINT1,2,3,4,5,6,7 
ELSE PRINT1,2,3 

2050 PROCNUM 

2060 FOR s=Ø TO 9:FOR t=Ø TO ns DIV1Ø-1 

2070 VDU sec? (10*t+s) : NEXT: NEXT 

2080 PROCnum:Q%=&20194 

2090 PRINT'"Disc usage: "u/ns*1ØØ;"%" 

2100 IF NOT p THEN 2130 

2110 PRINT'"Spacebar to return...."; 

2120 REPEAT x=GET:UNTIL x=32 

2130 VDU23;11,255;0;0;0: ENDPROC 

2148 : 

2150 DEFPROCnum:LOCAL i 

2160 FOR i=@ TO ns DIV 1Ø-1:VDU48+i MOD 

10 : NEXT:ENDPROC 

2170 : 

218Ø DEFPROCgo 

2190 tn=Ø:CLS:FOR i=] TO nf:p=P?i 

2200 IF cmd?p=84 THEN PROCtape (p) 

2210 NEXT:VDU22,7:FOR i=] TO nf:p=P?i 
2220 IF cmd?p>47 AND cmd?p<52 THEN PROC 
copy (p) 

2230 IF cmd?p=76 THEN PROClock (p," L") 

2240 IF cmd?p=85 THEN PROClock (p,"") 
2250 IF cmd?p=82 THEN L=lock?p:PROClock 
(p,""):PROCrename(p):IF L=1 THEN PROCloc 
k (p, " L") 

2260 IF cmd?p=88 THEN PROClock (p,""):PR 
OCdelete (p) 

2270 IF cmd?p=63 THEN PROCdump (p) 

2280 NEXT:RUN 

2290 : 

2300 DEFPROCtape (n) : LOCAL bk,t,s,L,b,by 
2310 CLS:*TAPE 

2320 *OPTI,0 

2330 IF tn>Ø THEN 2370 

2340 *MOTOR] 

2350 PRINT "RECORD then RETURN" 

2360 REPEAT s=GET:UNTIL s=13 

2370 tn=tn+1 :t=OPENOUTnameS (n) 

2380 1&38C-10$ (n):!&390zex$ (n) 

2390 IF len$(n)-0 THEN 2499 

2400 s=beg% (n) :L=len%(n) DIV 256 

2410 PROCusage (n, FALSE) 

2420 VDU23;11,0;0;0;0:FOR bk=Ø TO L 
2430 PROCrdsec (D%,s DIV 1Ø,s MOD 1Ø,pag 
e) 

2440 IF bk<>L THEN by=256 ELSE by=len3 ( 
p) MOD 256 

2450 IF by=Ø THEN 2480 

2460 FOR b=Ø TO by—-1:BPUT#t,page?b:NEXT 
2470 VDU3l,s DIV 1Ø,s MOD 19+7,251 

2480 s=s+1:NEXT bk 

2490 CLOSE#t:cmd?p=32:*DISC 

2500 VDU23;11,255;0;0;0: ENDPROC 

2510 : 

2520 DEFPROClock (n,s$) 


——=> 38 
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Grahame Blackwell shows how to 
map out the British Isles with his use- 
ful routine. And you can change the 
screen position and scale as well. 


This useful program will draw the 
British Isles at any size, in any position 
and at any aspect ratio in any graphics 
mode on the BBC micro. It uses completely 


conventional technology (!), and should 
therefore work on any BBC micro 
configuration. It is also easily imported 


into other programs. In part two of 
"Painting by Numbers" in this issue, a 
routine is given to fill the land in green 
and the seas blue; and in a forthcoming 
article on printer graphics, we will be 
using this drawing in our  Page-maker 
feature. 


First of all type in the listing 
carefully - if you get the data statements 
wrong the map will inevitably suffer. As a 
precaution, save the program before you 
run it. When it is run, the program asks 
for a number of parameters. The X and Y 
scales can be any value that you like: a 
value of 4 for each will give a full sized 
map in any mode. By giving the X scale a 
different value to the Y scale, you can 
change the aspect ratio of the map. With 
X=4, and Y=2, you get a map reminiscent of 
views from space satellites. 


The next two parameters prompted for 
are the co-ordinates of the origin. 
Pressing Return without giving a value 
will enter zero, and this positions the 
map centrally for a full-size drawing. 
Small maps on this setting will appear in 
the bottom left hand corner of the screen. 
Lastly the mode is requested. Any graphics 
mode (0, 1, 2, 4 or 5) may be entered 
here. The mode will then be set, and the 
map drawn. 


Depending on how you intend to use the 
map, you will probably wish to alter line 
200. As you can see, the whole drawing 
operation is run from line 190, calling 
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Line 200 


two procedures on the way. 
carries the END statement. If you wish to 
simply display the outline map on the 
Screen, you can replace it with: 

-GET 
This will hold the screen until a key is 


pressed. Alternatively you may wish to 
call a screen dump, either to printer or 
to disc or cassette at this point. 


In case you are miffed by the 
structure of the data statements in the 
program, they contain pairs of X-Y 


co-ordinates in hex format, and are read 
one line at a time into AS, before being 
decoded by PROCpoint, and dram by 
PROCisland. 
a. Ó 
10 REM PROGRAM BRITISH ISLES 
20 REM Version B0.6 
30 REM Author G.Blackwell 
AQ REM BEEBUG Aug/Sept 1986 
50 REM Program subject to copyright 
60 : 
188 MODE7 
118 PRINT'CHRS141;CHRS134;SPC6;"BRITIS 
H ISLES MAP" 
120 PRINTCHRS141;CHR$134; SPC6; "BRITISH 
ISLES MAP"'''' 
130 INPUT"X-Scale (4=full size): "W 
14Ø INPUT"Y-Scale (4=full size): "H 
150 INPUT'"Horiz Position (Ø-1279): " 
PX 
160 INPUT"Vert Position (00-1023): "P 


170 INPUT''"Mode: "M:MODE M 

180 VDU29,PX;PY; 

190 REPEAT PROCisland: UNTIL Y=Ø 
200 END 

218 : 

220 DEFPROCisland 

230 READ AS:PROCpoint:MOVE X*W,Y*H 
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FILLING THE BRITISH ISLES 

The British Isles map listed in this 
issue, can easily be filled using the 
filler routine given last month. The 
Simplest way to accomplish this would be 
to fill the sea area using the fill 
routine, and then use VDUI9 to make the 
sea blue, and the land green. But to 
illustrate the way in which multiple fills 
can be used, I will do it the hard way, 
filling first the sea area, and then each 
one of the enclosed land masses 
individually. 


The program to achieve this for a map 
drawn centrally to full size (i.e. scale 
4,4; position 0,0) is listed below. It 
should be added to (or merged with) the 
map-drawing program. Of course, it makes 
use of the machine code fill routine, and 
assumes that this has been saved as FILL 
(line 910), and that its execution address 
is &900, as discussed last month. 


Line 200 replaces the END statement in 
the drawing program, and  steers the 
program to line 900, where the fill 
routine begins. Lines 930 and 940 set 
suitable colour allocations so that the 
colouring to the land and sea are correct 
for all graphics modes. Lines 950 - 970 
fill the sea area, while the FOR loop on 
line 98% calls the fill routine a further 
9 times to fill each land mass. This 
includes  Anglesey, which has somehow been 
cut off from the mainland to a similar 
extent to the Isle of Wight! 


200 GOTO 909 

900 REM BRITISH ISLES FILLER Ver BØ.5 
91Ø *LOAD FILL 

920 paint-&900 

939 VDU 19,7,3;0;19,3,35;0;19,1,4;0; 
940 VDU 19,2,2;0;: 

950 AZ-&FFFFFF0]:B$-&FFFFFFFF 

960 C$-B$: D%=B% 

970 X%=Ø:Y%=Ø:CALL paint:A$-&FFFFFF02 
980 FOR I=1 TO 9 

990 READ X%,Y%:CALL paint 

1000 NEXT 

1919 DATA 520,920,400,920,368,804 

1020 DATA 424,664,500,632,532,488 

1030 DATA 540,392,756,96,320,400 


This concludes discussion of the 
applications of FILLER. For those of a 
technical bent, the article ends with a 
discussion of how FILLER works. 


UMBERS 


A t 


Grahame Blackwell fills in the details 
of his flexible paint routine, useful for 
colouring in maps like that of the 
British Isles opposite. 


HOW FILLER WORKS 

FILLER uses the principle of recursion 
to handle twists or forks in the fill area 
- one direction is followed, whilst others 
are noted for completion later; you may 
have observed this effect when running the 
Spiral demonstration program listed last 
month. Pending operations are held on the 
CPU stack, which is more than adequate for 
any normal situation. In the case of 
infinite recursion, which could happen by 
repeated overfilling (as may occur if 
boundary colours are incorrectly set), the 
routine incorporates a cut-out to prevent 
the stack overfilling and crashing the 
program. In such a case, the routine does 
not automatically terminate, it simply 
limits the number of pending operations at 
any time (always leaving several bytes of 
CPU stack for OS event-handling interrupt 
routines). 


For speed, the routine operates 
directly on screen memory, and will 
therefore not operate across the tube. 


The main sequence of operations for an 
arbitary area fill is: 


(a) Fill a line of pixels left and right 
from given co-ordinates to boundary 
pixels or the edge of the screen. 

(b) Search for possible continuations of 
the fill, and note each continuation 
on the stack for attention later. 

(c) Check stack for entries. If no 
entries, terminate the process; 
otherwise, remove the last stack entry 


for processing, and perform (a), (b), 
(Cc). 
Each sequence of steps (a), (b) may 
generate just one stack entry, for simple 


continuation in the same direction, or two 
or three if the fill branches and/or loops 
back. This particular routine enters such 
sub-fills on the stack last, and thus 
deals with them before un-stacking and 
continuing the main fill direction; each 
sub-fill becomes a fill sequence in its 
own right, possibly leading to more 
branches and loops - this is the recursion 
mentioned previously, essential to any 
successful arbitrary area fill. 


The subroutines in FILLER performing 
steps (a) and (b) are rout3 and rout6, 
controlled by rout7, which corresponds to 
operation (c). They in turn use:- routl, 
which locates the pixel corresponding to 
particular screen co-ordinates, reads the 
colour of that pixel, and finds what the 
new colour of that pixel should be; rout2, 
which changes the colour of a pixel; rout4 
and rout5, which move one pixel to the 
left and right respectively. Lines 140-230 
check the mode (exiting if  non-graphics), 


and transfer start co-ordinates and 
mode-dependent data to zero page. Lines 
240-310 set up the colour mask table from 


A2-D$, each entry held as for one pixel in 
the current mode. Lines 320-360 set up a 
fast fill mask for a complete zero screen 
byte, fill the first line, and enter rout7 
ready to fill in both directions. 


MEMORY USEAGE. 

As discussed in last month's article, 
FILLER is assembled to &9ØØ, and takes 
just under 3 pages of memory. It is a 
simple matter to assemble the code 
anywhere else in memory, as is convenient. 
In addition to the three pages of memory 
used to store the routine, FILLER uses the 
zero page locations from &7Ø to &8F as 
workspace. Other software sharing this 
workspace will need to reinitialise after 
FILLER has been called. es] 
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Computer Concepts 


Computer Concepts made their name 
with Wordwise, one of the most popu- 
lar and successful word processors 
for the Beeb. Now Inter-word has 
arrived from the same stable. Geoff 
Bains has been examining the import 
of this major new release. 


Product : Inter-word 

Supplier : Computer Concepts 
: Gaddesden Place, 
: Hemel Hempstead HP2 6EX. 
: Tel. 0442-63933 

Price : £56.35 


At long last Inter-word has arrived. 
As supplier of one of the most popular 
word processor for the BBC micro - 
Wordwise - Computer Concepts has a lot to 
live up to in its successor. Fortunately, 
the new Inter-word seems to be just about 
everything anyone could ask for in a word 
processor for the Beeb. 


Inter-word is supplied on a 32K ROM 
mounted on a tiny carrier board. To the 
Beeb it appears just like any single 16K 
ROM but in fact it has twice as much code 
inside. This ROM and board do seem to get 
a little warm but the system is a major 
improvement on Acorn's already excellent 
Sideways ROM system. 


To start with Inter-word looks 
remarkably like Wordwise. After calling up 
the program with *IW. a mode 7 menu 
appears. This offers the options of saving 
or loading the entire document, saving a 
marked section only, inserting text at the 
cursor position, setting up the printer, 
printing the text, previewing the text, 
spooling the text, and of course entering 
the editor itself. 


This menu is very like that in the old 
Wordwise. However, once a selection is 
made things are immediately different. All 
the filing operations produce an immediate 
catalogue of the disc in the current drive 
(cassette systems excepted, of course). 
The filename to use may then be selected 
from the catalogue as an item in a menu, 
using the cursor keys. The menu item 


16 


selected by default is the last used name. 
Alternatively the filename for use can be 
typed in from the keyboard. Indeed, a 
combination of methods may be used and an 
existing name edited to create another. 


When saving or spooling a file a 
"Replace old file Y/N?' prompt is given if 
the filename is already used. When 
loading, a check is made that any existing 
text is to be overwritten. Such an 
interface with the filing system (any 
Acorn compatible filing system, too) is a 
major work in itself. However, the real 
joy of Inter-word is in the editing. 


Unlike any other major word processor 
for the Beeb, Inter-word is a genuine 
‘what you see is what you get' word 
processor. Text appears on the screen 
EXACTLY as it does on paper. Entering text 
is easy enough. You just type it in. 
Naturally Inter-word provides a word wrap 
facility so that you can just keep on 
typing and not worry about new lines. 


When a new line is required ‘out of 
place' the Return key is used. This forces 
a new line and is shown on the screen with 
a bent left-pointing arrow. As your typing 
fills a page, the page boundary is 
displayed and the cursor automatically 
leaps over this to the first line of the 
new page. Deleting and adding text can be 
a bit disconcerting at a page boundary. 
The cursor is prone to leaping back and 
forth. However, this just shows Inter- 
word's impressive speed and accuracy. 


As you type in text you can go back 


over it and alter it. Text can be written 
in 'insert' or 'overwrite' modes and the 
delete key has its normal function. A 
letter can be deleted at the cursor 


position by pressing either Ctrl-A or the 
Copy key. A word can be deleted with 
Ctrl-D and a whole line with Ctrl-L. 


Moving around the text to make the 
alterations is similarly catered for. The 
cursor keys alone, of course, move the 
cursor a Single letter at a time along a 
line and a line at a time vertically. 
Pressing Ctrl along with the cursor keys 
moves by the word horizontally and by the 
Screenful vertically. Shift with the 
cursor keys moves to the extremes of the 
lines horizontally and to the top and 


bottom of the document vertically. This is 
all compatible with Wordwise. In addition, 


Ctrl-P and Ctrl-N will move to the same 
place in the previous or next page. | 


Naturally, text is not restricted to 
the arrangement you give it as you type. 
Text can be justified, or aligned to the 
left or right margins, or centred on the 
line. Again, altering an already centred 
line can be a little weird because 
Inter-word re-centres it as you type. 


The arrangement of text on a line is 
altered with the function keys. Unlike 
Wordwise, four of these have each been 
given two functions distinguished by 
pressing the function key along with the 
Shift key. However, the function key strip 
is still reasonably uncluttered unlike 
that of View and many of the newer word 
processors that have sprung up recently 
(see BEEBUG Vol.5 No.1). 


To centre or underline a piece of 
text, it is first marked in much the same 
way a piece of text is marked in Wordwise 
or View. This done, pressing one of six 
function keys (four with or without the 
Shift key) will align the section left or 
right, centre it, justify it, delete yt, 
copy it to the cursor position, underline 
it, set it in bold text, or perform a 
definable function that is shown on the 
screen as a dotted underline and appears 
on the printout as whatever effect you 
care to define (default is Epson italics). 


The format of the pages is controlled 
with rulers in a very similar way to View. 
Wordwise's embedded codes for this have 
been totally thrown out. A ruler is 
inserted anywhere in the text by pressing 
another function key and it's then edited 


directly on the screen. 


The left and right margins and the tab 
positions are dragged to the desired 
position with the Shift and cursor keys as 
is the  'Return margin'. The first 
character typed after a Return is pressed 
(at the start of a new paragraph) can be 
placed at a different position to the 
first characters of the other lines, 
giving automatic paragraph indenting. 


The other facilities of Inter-word are 
controlled using 'pull-down' menus. In my 
view, this is a bit of a shame. When 
Inter-word was started (many months ago) 
pull-down menus were all the rage and 


popped up in every software package 
imaginable. It is true that pull down 
menus provide a means to make selections 


that is very easy to get to know. The 
beginner loves them. However, after you 
become more used to using a piece of 
software the craving for a quicker, if 
less friendly method, becomes greater. 
However, it is with pull-down menus that 
Inter-word is provided, and within these 
limitations they perform very effectively. 


There are nine selection menus. These 
are all accessed through a tenth that is 
called from the keyboard by pressing fØ. 
The menu selection menu also shows the 
status of the word processor - the number 
of bytes free and used, word count, 
current page, line, and other information. 
The lower half of this pull-down box forms 
the menu for the other menus. The method 
of selecting the desired option is made as 
simple and flexible as possible. The 
vertical cursor keys are used to highlight 
one of the menu items and then Return 
selects it. Alternatively, either the 
function keys or the number keys can be 
used to select the corresponding item. 


The first menu is the preferences menu 
and this alters aspects of the use of the 
word processor. The number of lines 
displayed on the screen can be altered as 
can the colours used for text and 
background. The key repeat rate and cursor 
blink rate can be altered and even the 
interlace switched on or off. The most 
important selection is the number of 
columns displayed. As you'd expect 40 or 
80 columns can be displayed but also 53 or 
186 columns. This is achieved by a 
complete redefinition of the character set 
giving thin but readable characters. In 
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fact the ruler margins can be extended 
beyond the displayable limits and then a 
kind of sideways scrolling operates. 


The second pull-down menu covers those 
operations that can be carried out on a 
marked section - duplicates of the 
function keys. The third menu covers the 
search and replace operation. This can be 
configured (from the menu, naturally) to 
ignore case differences and to confirm 
changes at each find. Wildcards. are 
allowed in the search string. A search 
operation can also be started without 
resorting to the pull-down menus by 
pressing Ctrl-G. 


The Page layout menu lets you set up 
page length, top and bottom spaces, and 
position of headers and footers. The 
headers and footers themselves are defined 
in the main text area. A marked section of 
text can be defined as a header/footer 
text and then called up when required with 
an embedded code. Unlike Wordwise these 
codes take up no room on the screen. To 
position an embedded code another menu is 
selected with £1. Codes to force a new 
page, or issue a * command are all 
possible but are shown in the text as a 
reverse video character. Once a section of 
text has been defined as a  header/footer 
it can be deleted from the text area. 


The printer set-up menu deals with the 
number of copies and which pages of the 
document are to be printed, line Spacing, 
pad characters, the codes for the 
underline, bold and user definable effect, 
and the like. Each menu seems to have its 
high point and the special feature in this 
one is the column printing. Inter-word can 
print text in up to five columns, each 
column on a sheet of paper taken from the 
next page in the text. Using this facility 
the two column format used in BEEBUG could 
be simply reproduced in one’ printing 
operation. It is for column printing that 
the preview option in the main menu is 
provided as this is the only effect that 
cannot be seen as the text is edited. 


The remaining three menus are very 
special. The multi-file menu deals with a 
very clever feature of Inter-word. A piece 
of writing that is too long to fit in 
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` definitely 


` tao have 


memory can be split into several files, 
named as you require. These can be printed 
continuously with only one order to print 
and when editing you can jump from one to 
another by pressing Shift along with a 
vertical cursor key, without: giving the 
next file's name. Inter-word looks after 
all of that. 


Computer Concepts are planning a 
spelling checker to accompany Inter-word. 
The spelling check menu (already built 
into the word processor) can then be used 
to start a check on your document or 
initiate a continuous check as you type. 

The last menu is the ROM-link menu. 
This deals with Inter-word's interaction 
with other 'Inter' ROMs in Computer 
Concepts' series. The ROM link idea allows 
up to 16 separate 'packages' of data for 
each ROM-link program to share the Beeb's 
memory at any one time. The ROM link menu 
displays the packages in memory at the 
time and allows you to enter any one of 
these directly. The System also enables 
you to 'import' and 'export' data between 
the different ROM-link programs. 


Getting to know any comprehensive 
piece of software such as a word processor 
is bound to be a long process. However, 
the effort required to learn Inter-word is 
worthwhile. The manual 
accompanying Inter-word is of a good 
Standard; though it would have been nice 
seen an "Introduction to 
Inter-word' booklet along the same lines 
aS provided with Wordwise Plus. 


Inter-word is the most powerful and 
comprehensive word processor available for 
the Beeb today. It is more powerful and 


flexible than View but still retains much 
of the friendliness and ease of use of 
Wordwise. Inter-word looks set to become 
the standard word processor for the BBC 
micro: a role to which it 
suited. 


is eminently 


Will further extends the 
PU Filer database system by 
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me accounts package. 


E 


The latest addition to the BEEBUG Filer 
database system, first described in BEEBUG 
Vol.4 Nos.6, 7 & 8, is designed to provide 
an effective, easy-to-use home accounts 
package. That is, it will allow you to use 
the computer to keep track of a bank 
account, or similar, recording details as 
you enter them of all your credits and 
debits, and providing a statement or 
balance of account when requested. 


The system described here uses the 
original BEEBUG Filer to create and 
maintain one or more bank files. Once a 
bank file has been set up you continue to 
use Filer to enter details of your cheques 
and other payments, and details of any 
credits. All the facilities of Filer can 
be used, as required, to search, sort and 
print out records from this file. 


The program listed this month is a 
quite separate program, though following 
the same general Filer format, which will 
take the information entered in your bank 
file and compile this into a bank state- 
ment, or display an up-to-date balance of 
your account. You could also use the Filer 
Graph Option in BEEBUG Vol.5 No.2 to 
display the state of your account graph- 
ically, maybe too graphically for some! 


SETTING UP A BANK FILE 

Use BEEBUG Filer to create your bank 
file. You will need one record for each 
possible transaction, but the Filer 
Accounts Option allows you to close one 
bank file and carry forward the closing 
balance to start a new bank file. Thus you 
may wish to set up a file to cover a month 
or maybe a quarter at a time. When 


specifying the structure of the file the 
following fields MUST be included with the 
Other 


field widths shown. fields may be 


included if you wish and all fields may be 
in any order. 


Fieldname Fieldwidth 
DATE 6 
DESCRIPTION 38 
CHEQUE 6 
AMOUNT 8 
BALANCE 8 


The field names MUST be exactly as given 
above. You will also need to create a 
second file with the same name as the 
first but with directory P (e.g.P.MYBANK). 
This file will eventually be used to hold 
details of your direct debits and other 
regular payments, although this facility 
will only be fully implemented later. This 
file is an essential part of the Filer 
Accounts system and should be created with 


the following fields only, and in the 
exact order given: 
Fieldname Fieldwidth 
DES 30 
AMOUNT 8 
FREQ 2 
DATE] 6 
DATE2 6 


Once this 'Payments' file has been created 
it can be ignored, though used always by 
the Filer Accounts program. Details of how 
to use this file for direct debits and the 
like, and the code to implement this, will 


be given in the next issue. 


Finally, to start your bank file, you 
will need to add.one record to it to spec- 
ify your opening balance. Include the date 
as well, but leave all the other fields 
empty except for the balance itself. 
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Every time you write a cheque or make 
any other kind of payment or deposit 


affecting your account you should add 
another record to your bank file using 
Filer. Dates should always be in the form 
'yymmdd', that is two digits for the year, 


two for the month, and then two final 
digits for the day. Entries should be 
maintained in date order as far as 
possible. 


The amount to be debited should be 
entered as a money sum, i.e. with two 
digits always following the decimal point. 
Since this is effectively a file of 
debits, any credits should be entered as 
negative numbers in the same 'money' 
format. The cheque and description fields 
may be filled in as you wish - they are 
not processed but are just listed on your 
statement. The balance field should always 
be left blank as this is computed and 
filled in automatically later. 


USING THE FILER ACCOUNTS OPTION 
Type in and save the program listed at 


the end of this article. For Basic I, 
replace all occurrences of  'OPENUP' by 
'OPENIN' (see lines 3060, 3420, 5300, 


5360). The program will run with PAGE at 
its default of &19ØØ, but to maintain 
compatibility with the other  Filer 
programs and allow for further additions 
you are again recommended to run the 
Accounts option with PAGE set to &1400 
(unnecessary on the Master, and B+ with 
shadow memory - use MODE 131 at line 100). 
Filer 


The commands recognised by 


Accounts are: 


<filename> 


| OPEN | 
| CLOSE 
TITLE 
DATE 
STATEMENT 
BALANCE 
CF <filename> 
| COMMANDS 


<title> 
<date> 
<datel>,<date2>{/P} 


These commands are used as follows: 

OPEN Open your main bank file for use - 
automatically opens the payments file 
as well. 


CLOSE Close the bank file, and of course 
the payments file. 
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TITLE Specify any title to appear at the 


top of your bank statement. 


DATE Specify, in any format, the date of 
your statement. | 


STATEMENT Request a statement to be 
produced covering the period from the 
first date up to the second date. If 
the first date is omitted the statement 
will start with the first record in 
your bank file. If the second date is 
omitted the statement will continue up 
to the date of the last record in the 
file. Appending '/P' will cause the 
Statement to be sent to your printer. 
All three parameters are optional. 


BALANCE Request an up-to-date balance of 
account, displayed on the screen only. 


CF Close the current bank file, carrying 
the closing balance forward to form the 
first record of the new file specified. 
The payments file will also be updated 
and renamed to reflect this. 


COMMANDS List all valid commands. 


END Exit from the program, closing all 
files. 


An example of a statement produced 
using the Filer Accounts Option is 
included with this article. Once set up, 
the Filer Accounts Option is simplicity 


itself to use, and the implementation of 
direct debits, to be described in the next 


issue, will complete a most useful 
application of the Filer Database system. 


August/September 1986 


PROGRAM NOTES 

Space does not permit a 
description of the program, 
the procedures used are the same or 


detailed 
but many of 


similar to ones used previously with 
Filer, and the general structure of the 
program is also similar. Do keep to the 
line numbering in the listing when typing 
in the program. Note also the value of the 
variable FDR in line 1060. This sets the 
size of the File Description Record 
allowing this to be readily changed by 
anyone who has modified or extended the 
original Filer Database program. 


The value 
important. 


123 in line 3489 
You can always 


is also 
force the 


program to re-initialise the payments file 
and re-calculate all balances by setting 
temporarily to any other value. 


this 


SEKSTEN 


10 REM BEEBUG FILERA version B1.9 
20 REM Author Mike Williams 
3Ø REM BEEBUG AUG/SEPT 1986 
100 MODE3:ON ERROR PROCerror: END 
120 PROCsetup: PROCtitle: PROCwindow2 
140 REPEAT: PROCcommand: UNTIL exit% 
160 PROCclose:VDU26:*FX4,Ø 
188 END 
200 : 
1000 DEF PROCsetup 
19020 LOCAL I:exit%=FALSE: opens=FALSE 
1040 maxf=12:X=Ø:Y=Ø:dateS="":titleg="" 
¿*FX4,2 
1060 debit%=FALSE:FDR=512 
1880 DIM comS (18) ,recordS (maxf,1) ,field 
$ (maxf) ,width% (maxf) ,os 40 
1100 READ N 
1120 DATA 9 
1140 FOR I=] TO N:READ com$ (I) : NEXT I 
1160 DATA OPEN,CLOSE,TITLE,DATE 
1180 DATA STATEMENT, BALANCE , CF , COMMANDS 
y END 
1200 ENDPROC 
1220 s 
1300 DEF PROCtitle 
1320 PRINTTAB (0,1) STRINGS (80," ") 
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1340 PRINTTAB(28,1)"BEEBUG FIL 
ER - Accounts" 

1360 PRINT STRINGS(80," ") 

1380 PRINTTAB (0,20) STRINGS (89," ") 

1400 ENDPROC 


1500 DEF PROCcommand 

1520 LOCAL command$,pmsS$ 

1540 REPEAT 

1560 INPUT LINE"-> " commands 

1580 C=FNvalidate (command$) 

1600 IF C=Ø THEN PRINT"Unrecognised com 


1630 IF C=] THEN PROCopen (pm$) 

1640 IF C=2 THEN PROCClose 

1650 IF C=3 THEN titleS=pmS 

1660 IF C=4 THEN date$=pm$ 

1670 IF C=5 THEN PROCstatement (pm$) 


1688 IF C=6 THEN PROCbalance 
1690 IF C=7 THEN PROCcarry (pm$) 
1700 IF C=8 THEN PROClistc 
1860 IF C=9 THEN exit%=TRUE 


1870 IF C=99 THEN PROCstar (pm$) 

1880 ENDPROC 

1909 : 

2200 DEF FNvalidate (C$) 

2220 LOCAL found$,I,P:found$-0 

2240 FORI=1 TO N 

2260 IF (ASC (MIDS (CS,1) ) AND223) =ASC (MID 
S(com$(I),1)) AND (ASC(MIDS (C$,2) ) AND223 
) =ASC (MIDS (com$ (I) ,2)) THEN found$- 

2280 NEXT I 

2300 P=Ø:IF CS>"" THEN P=INSTR(CS," ") 
2320 IF P=Ø THEN pm$="" ELSE pmS=MIDS (C 
$,P+1) 

2349 IF ASC(CS)=42 THEN pmS=MIDS (CS, 2) : 
found$-99 

2360 =found% 

2380 : 

3000 DEF PROCopen (pS) : LOCAL I 

3020 IF p$="" THEN PRINT"No file given" 
: ENDPROC 

3040 IF open$ THEN PROCclose 

3060 FS=pS:F=OPENUP (F$) 

3080 IF F=Ø THEN PRINT"No such file":EN 
DPROC ELSE open$-TRUE 

3100 PTR#F=0: INPUT#F,rec,recn,recs,f 
3120 FOR I=] TO f:INPUT4F,fieldS$,width$ 
(I) :fieldS(I)=FNstrip(field$,".") :NEXT I 
3140 date=FNfield ("DATE") :chg=FNfiela (" 
CHEQUE") :desc=FNfield ("DESCRIPTION") 
316Ø class=FNfield ("CLASS") :bal=FNfield 
("BALANCE") : amnt=FNf ield ("AMOUNT") 

3180 PROCpayments: ENDPROC 

3200 : 

3400 DEF PROCpayments:LOCAL I,pl$,p2$ 
3429 F1S="P,."+FS:F1=OPENUP (F1$) 

3440 IF F1=Ø PRINT"No payments file":PR 
OCclose: ENDPROC 
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3460 debit%=-1: INPUT#F1 ,recp,I,1,pf 

3480 PTR#F1=FDR-1: I=BGET#F1:IF I<>123 P 
ROCinitialise 

3500 IF NOT debit% PROCclose: ENDPROC 

3520 PTR#F1=FDR-25: INPUT#F1 ,recb,p1$,p2 
$:db=VAL (p1$) sbalance=1ØØ*VAL (p2$) 

3540 ENDPROC | 

3560 : 

3700 DEF PROCinitialise:LOCAL p1$,p2$ 

3720 PRINT"Initialising payments file" 

3740 IF rec=1 PRINT"No entries in bank 
file":debit%=Ø:ENDPROC 

3760 PROCread (1,F,Ø) :pl$=recoradS (date,0 
) :p29-record$S (bal,Ø) 

3780 PTR#F1=FDR-25: PRINT#F1,1,p1$,p2S:d 
ebit%=-1:PTRÅF1=FDR-1:BPUT+HFT ,123 

3800 ENDPROC 

3820 : 

4000 DEF PROCbalance 

4020 IF NOT open? PRINT"No file open":E 
NDPROC 

4040 IF rec>recb+l PROCsheet (recb,db,99 
9999 ,FALSE , FALSE) 

4060 PRINT"Balance at ":STRS(db):" is ^ 
"SSTRS (balance DIV 109) ;"."3RIGHTS (STRS ( 
balance) , 2) 

4080 ENDPROC 

4108 : 

4200 DEF PROCstatement (p$) 

4220 LOCAL d1,d2,p,:print%=FALSE 

4240 IF NOT open$ PRINT"No file open":E 
NDPROC 

4260 p-INSTR(pS,"/P"):IF p print%=-1:pS 
=LEFTS (p$ ,p-1) 

4280 pS=pS+","s:p=INSTR(pS,",") :d1=VAL(L 
EFTS (p$,p-1) ) :PS=MIDS (p$,p+1) 

4300 p=INSTR(p$,",") :d2=VAL (LEFTS (pS ,p- 
1)) 

4320 IF d2-0 THEN d2=999999 

4340 IF dl&-db THEN r=FNchop(d1,recb) E 
LSE r=recb 

4360 PROCsheet (r,d1,d2,print%,TRUE) 

4380 ENDPROC 

4400 : 

4500 DEF PROCsheet (r,d1,d2,p1%,p2%) 

4520 PROCwindowl:CLS:IF pl% VDU2 ELSE V 


.4540 REPEAT:line-10:IF p2% PROCsheet1 
4560 PROCread (r ,F, Ø) 

4580 REPEAT 

4600 IF r>recb balance=balance-1ØØ*FNva 
1 (amnt) :recorad$ (bal ,Ø)=STRS (balance DIV 
109) +" , "+RIGHTS (STRS (balance) , 2) : PROCwri 
te(r,F,0) ELSE balance=1|ØØ*FNval (bal) 
4620 IF p2% AND FNval (date) >=d1 PROCpr 
intline (records (date,Ø) ,recordS(desc,Ø), 
FNstrip (record$(chq,Ø) ,".") ,FNstrip (reco 
rd$ (amnt ,Ø) ,".") ,FNstrip (recoraS (bal,9), 
", ")):line=line+1 

4640 r=r+1:IF r<rec PROCread (r ,F,Ø) 
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4660 UNTIL r>=rec OR FNval (date) >d2 OR 
line>6Ø 

4680 IF pl% VDUI,12 

4700 UNTIL r>=rec OR FNval (date)»d2 

4720 VDU3,15 

4740 PROCread (r-1,F,Ø) :PTR#F1=FDR-25:PR 
INT4Fl,r-l,record$(date,0),recordS (bal,0 
) 

4760 recb=r-1:db=FNval (date) :balance=1Ø 
Ø*FNval (bal) : PROCwindow2: ENDPROC 

4780 : 

4800 DEF PROCsheet] 

4820 PRINT'SPC(40-LEN (titleS)DIV2);titl 
es 

4840 PRINT''"Statement of account on "; 
dates 

4860 PRINT''"Date";TAB(20);"Details";TA 
B(52)"Debits";TAB(61)"Credits"; TAB(71) ;" 
Balance"' 

4880 ENDPROC 

4900 : 

5000 DEF PROCprintline (dateS$,descS$,chq$ 
,amnt$,bal$) ¿LOCAL P 

5020 IF VAL(amntS)>@ THEN P=49 ELSE P=5 
9:amnt$=MIDS (amnt$, 2) 

5040 PRINT dateS;TAB (8) ;¡desc$;TAB (40) ;S 
PC (8-LEN (chg$) ) ; chq$; TAB (P) ¿SPC (9-LEN (am 
nt$)) ;amnt$; TAB (69) ¿SPC (9-LEN (balS) ) ¿bal 
$ 


5Ø6Ø ENDPROC 

5080 : 

5200 DEF PROCcarry(p$) ¿LOCAL I 

5220 IF p$="" PRINT"No file given": ENDP 
ROC 

524Ø IF NOT open% PRINT"No file open":E 
NDPROC 

5260 PROCbalance: PROCread (recb,F,Ø) :CLO 
SE#F 1 

5280 PROCoscli ("SAVE "+p$+" Ø+"+STRS" (F 
DR+recn*recs)) 

5300 1=2:F2=0PENUP (pS) : PTR#F2=@0: PRINT#F 
2,1,recn,recs,f 

5320 FOR I=] TO f:PRINTHF2,fieldS(I)+ST 
RINGS (12-LEN (fieldS(I)),"." ¿w1dth% (1) :N 
EXT 

5340 records (chq, 9) =STRINGS (widths (chq) 
;".")s:record$(desc,0)-"Balance carried f 
orward"+STRINGS (width? (desc) -23,".") rec 
ord$ (class, 9) STRINGS (width$ (class) ,".") 
: records (amnt , 0) =STRINGS (width? (amnt) ,". 
") :PROCwrite(1,F2,Ø) :CLOSE#F2 

5360 F1=OPENUP (F1S) : PTR#F1=FDR-25: PRINT 
#F1,1,recordS (date, ð) ,record$ (bal, ð) 
5388 PROCclose:PROCoscli ("RENAME "+F1]S+ 
" p, "+p$) 

54ØØ PRINT"Balance carried forward to " 
;p$ 

5420 ENDPR 

5448 : 

6000 DEF PROCclose 


MASTER 
SERIES 


An ADFS 


Menu 


ing easy access to all 


ur programs and files. 


The ADFS provides a good many useful 
facilities for Master users,. and its 
tree-like file structure is a great idea. 
But using it is very hard work. This 
utility is intended to make life a little 
easier (aren't they all?). It is 
essentially a  menu-driven front end, 
allowing easy movement through a disc's 
directories, and subsequent selection of 
files to be CHAINed or *RUN etc. It has 
been designed specifically for the Master 
and Master Turbo, and makes use of the 
built in clock/calendar to display a small 
analogue clock which happily ticks away 
the seconds in the corner of the main 
screen, even though the whole thing is 
handled in Basic. 


The menu, which uses mode 128 to give 
a Macintosh look-alike front end, reads 
all the data from your disc automatically. 
All you have to do is to save the menu to 
the root directory of your disc (or 
discs), and put on an appropriate  !BOOT 
file to ensure auto-boot. Then when the 
disc is booted you will be presented with 
the title of the root directory in double 
height, and small windows on the left will 
show the current drive, current directory, 
current library, and the number of bytes 
free on the disc. 


The large window provides a menu of 
designated items in the current directory; 
and has sufficient space for the full 
allocation of 47 objects. Any one of these 
may then be selected at a single 
key-press. If the item is a program file, 
it will be CHAINed or *RUN as appropriate, 
but if it is a directory, the display will 
be updated to show the contents of the new 
directory; again with directory title in 
double height, and with menu-selectable 


contents in the main window below. You can 
repeat 


this process to any depth of 
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nesting that you wish - the 
automatically follow. 


menu will 


Pressing the UP cursor key at any time 
will take you to the root directory, while 
the LEFT cursor key will take you back to 
the previously displayed directory. To 
change drives, enter "1" or "Ø" as 
appropriate. You may also execute any star 
command from any menu screen, though of 
course if you use any which over-write the 
program you will not be able to get back 
to the menu. To help you out here, and to 
allow the menu to be recalled even after 
CHAINing a program from it which 
over-writes it, function. key 9 should 
re-boot the system. 


In fact the menu will recognise three 
types of files: 
1. Basic programs to be CHAINed 
2. Machine code programs to be *RUN 
3. ROM images to be loaded directly 
into sideways RAM. 


In the case of the ROM image loader, you 
will need to press  Ctrl-Break to 
initialise any ROMs loaded. The menu 


prompts you to do this, but you will not 
be able to get directly back to the menu 
after this. The easiest thing to do is to 
re-boot the disc with Shift-Break. 


The menu reads directory names, titles 
and filenames straight from the disc; and 
in the case of the latter, it 
distinguishes between the different types 
of file by looking at their load 
addresses. This is necessary because, 
although it is appropriate to use the 
directory on the DFS to indicate the type 
of file for an auto-menu, this is not 
feasible on the ADFS, since it would 
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drastically limit the user's choice of 


directory names. The only important 
occasion where the program can be confused 
over what to do with a file is when 
machine code has been tacked on to the end 
of a Basic file, as occurs in some games. 
Å way of dealing with this is outlined at 
the end of the article. One further point 
is that ROM images must have a load and 
execution address of &8ØØØ if the menu is 
to recognise them. 


INSTALLING THE SYSTEM 

First of all, type in the program 
carefully, and save it away to disc under 
the ADFS in the $ directory with the title 
"menu". You will find it helpful in 
general to distinguish filenames from 
directory names by using upper case for 
directories, and lower case, or mixed 
upper and lower for filenames. As you will 
see the program has been presented in a 
somewhat compact fashion. This has been 
done in order to keep it fast and 
economical on memory. When you have typed 
it all in, you should create a boot file 
with the contents shown in the 
accompanying listing. This is easily done 
with Edit or by using *BUILD, and the file 
should be saved as $.!BOOT, again on the 
ADFS. Now type: 
|. *OPT4,3 
to set the boot option on the disc; and 
Shift-Break will then boot up the menu. 


The way that the menu recognises 
whether to include a file or directory in 
its display is by checking for its ACCESS 
Status. If it is set as R (read only), or 
RL (read-only and locked), then it will be 
included in the display. To set the 
required option on files that have been 
Saved to the disc you will need to 
perform: 

*ACCESS <filespec> R 
You can of course use: 

"AS * LR 
to speed things up. In the case of a game 
which has three component programs, such 
as Acornsoft's Snapper, you could ensure 
that only the first of the three appears 
on the menu by giving the other two RW 
status. 


(or LR) 


TECHNICAL NOTES 

The menu program is not run from the 
normal default PAGE setting of &EØØ; but 
from &6000. This is set up in the boot 
file. The reason for this is to allow the 
ROM image loader to work in the normal 
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user memory area, while leaving the menu 
in tact. Also, programs that are CHAINed 
in by the menu may also be able to 
function without disturbing the menu; 
though to recall it you would need to 
reset PAGE to &6000 before typing RUN. It 
is probably easier in this case to re-boot 
the menu using function key 9. 


HOW TO ALTER HYBRID FILES 

Basic files with machine code tacked 
on to the end must be adjusted as follows: 
Enter *INFO <filename>, and note down the 
last 4 digits of the penultimate number in 
the resulting display. This is the length 
of your file. Now make use of this as 
follows: 

*LOAD <filename> EØØ <return> 

*SAVE «filename» EQ@@+<length> 802B 

<return> i 

*ACCESS <filename> R <return> 
And the job is done. 


1Ø REM PROGRAM ADFS MENU 
20 REM Version B 0.6 


30 REM Author P.L.Rochford 
40 REM BEEBUG Aug/Sept 1986 
50 REM Program subject to copyright 


104 ONERROR GOTO 919 

110 *KEY9 *EXEC :8.S.!BOOT M 

120 MODE128:VDU23,1 ¿DIMAS (47) ,S%18,C% 
18,B$700: R-80:X2140: Y865: L8265: LM-60: LH 
-45:0ldts-VAL (MIDS (TIMES, 23,2) ) 

130 TUBE=FALSE:A%=&EA:X%=Ø:Y%=&FF: IFUS 
R(8FFF 4) AND&FFØØTHENTUBE=TRUE 

140 *FX4,1 

154 VDU19,1,0 :PROCN:PROCB(294,30,1250 
7829) : PROCV (294,3Ø,125Ø,829) : PROCB (420,8 
80,1130,975) : PROCB (40,562,253,647) : PROCB 
(40,402,253,487) : PROCB (40,242,253,327) :P 
ROCB (40,80,253,167) : PROCB (40,720,250, 955 
) s PROCV (40,720, 250,955) : PROCface 

160 REPEAT: PROCH: REPEAT: PROCt : F3=INKEY 
(Ø) sIFF$>47ANDF3<5QOSCLI"MOUNT "+STRS (FS 
-48) : PROCH 

170 IFF%=1360SCLI "BACK": PROCH 

18Ø IFF%=1390SCLI"DIR $":PROCH 

190 IF F$-42 PROCstar : PROCH 

200 UNTIL F%>64ANDF3<H3+65 

210 PROCD (AS (F$-64)) 

220 IFAS=20SCLI"DIR "+AS(F%-64) 

230 IFC$?3-2&80:PROCI 


240 UNTIL A%<>2 AND C2?3«»5&80 

250 IFC$?7«»&80THEN280 

260 MODE7:PROCK: IFTUBE=TRUE THENPAGE-& 
800 :CHAINAS (F3-64) : END 

270 PAGE-&E00:CHAINAS (F3-64) : END 

280 MODE7: PROCK: IFTUBE=TRUE THENPAGE=& 
800: OSCLIAS (F%-64) : END 

290 PAGE=&EØØ:O0SCLIAS (E%-64) : END 

300 : 

310 DEFPROCH: 01dsx=X:01dsy=Y:oldmx=X:30 
1dmy=Y : oldhx=X: o1dhy=Y : K3=B%: PROCF : PROCA 
* PROCG : PROCJ : PROCQ:VDU19,1,7 :*FX21,0 

328 ENDPROC 

330 3 

340 DEFPROCF : PROCC (8) :G3=47-C%?5: IFG3= 
Ø ENDPROC 

350 H3=Ø:FORES=1TOG%:PS="" : FORDS=K%4+1T 
OKS+1Ø: PS=PS+CHRS?DS : NEXT: K%=K%+1 I : PROCD 
(PS) : IF ((C%?&E EOR2)AND3)=3 H%=H3+1:AS (H 
3) =P$ 

360 NEXT: ENDPROC 

380 DEFPROCA: PROCC (5) :CS=""s FORDS=K3+1 
TOKS+K3?0 3 CS=CS+CHRS?D%3+CHRS 32: NEXT: I$-K 
2$? (2+K%?@) : PROCC (6) : DS="" : FORD3=K%+3TOK% 
+12: DS=DS+CHRS?D% : NEXT: PROCC (7) :H$z"" : FO 
RDS=K3+3TOKS+ 1 22 HS=HS+CHRS?D$% : NEXT: ENDPR 
OC 

390 : 

400 DEFPROCG:A%=&71 : X3=K3MOD256 : Y$-K$D 
1V256:CALL&FFF1 : J3=K% ! Ø: ENDPROC 

410 : 

420 DEFPROCJ:COLOURØ:COLOUR1 29: PROCV (4 
20, 889,113,975) : PROCL (C$, 48-LENC$/2, 2) : 
PROCV (40, 562,253,647) : PRINTTAB (4,12) "Dri 
ve": IFIS$=ØPRINTTAB (4,13) "Zero" ELSEPRINTT 
AB (4,13) "One" 

430 PROCV (40,402,253,487) : PRINTTAB (4, | 
7) "Directory" TAB (4,18) ;D$: PROCV(40,242,2 
53,327) : PRINTTAB (4,22) "Library" TAB (4, 23) 
; HS: PROCV (40,80,253,167) : PRINTTAB (4,27) " 
Bytes Free"TAB (4,28) 7J%: ENDPROC 

440 : 

450 DEFPROCO:VDU28,19,29,75,7:CLS 

460 IFG3=ØORH%=ØPRINTTAB (23,6) "NO MENU 
FILES !"TAB (9,11) "Press "CHR$136"- to ret 
urn to previous Directory"TAB(12,13) "Pre 
ss "CHR$139" to go to root Directory" TAB 
(18,15)"Or select another Drive":VDU26:P 
ROCc1k: PROCm: ENDPROC 

47Ø FORES=1TOH%:PRINT;" ";CHRS(E$+64) 
;" "AS (ES) ; : IFESMOD4=ØPRINT' 

480 NEXT: VDU26: PROCc1k : PROCm: ENDPROC 

490 : 

500 DEFPROCC (A2) :C%!1=K%:C%15=47:C%19= 
Ø : X3=C3M0D256: Y3=C3DIV256:CALL&FFD] : ENDP 
ROC 

51Ø : 

520 DEFPROCD (ZS) :SS%=ZS: ?2C$-S$MOD256:C 
?1=S%DIV256:A%=5: X$-C$MOD256: Y$2C$DIV25 
A£-(USR(&FFDD) AND&EF) : ENDPROC 


a 
o 
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530 : 

540 DEFPROCI:PROCV(420,880,1130,975) :P 
ROCL("Master Sideways RAM Bank Loader",3 
2,2) :VDU28,21,29,75, 7: CLS : OSCLI"ROMS" : PR 
INT'"Selected: ";AS(F$-64):PRINT'"Load i 
nto which bank (4,5,6 or 7) ? ";:REPEAT: 
PROCt: G=INKEY (0): UNTILG>51ANDG<57 

550 GS=STRS (G-48) : PRINTGS: OSCLI "SRLOAD 

"+AS (F%-64) +" 8000 "+G5+" Q'":O0SCLI"INSE 
RT "4GS:VDU7,7:PRINT'"Press SPACE to ret 
urn to Menu, CTRL-BREAK to exit": REPEATG 
=INKEY (0): PROCt : UNTILG=32: VDU26 : ENDPROC 

560 : 

570 DEFPROCK:*FXA4,0 

580 ENDPROC 

590 : 

600 DEFPROCN:VDU23,2,170,85,170,85,170 
,85,170,85:GCOL16,1:MOVE0O ,0: PLOT1901,1280 
, 1824: ENDPROC 

618 : 

620 DEFPROCB (L2,M£,N£,02) : GCOLO ,0: VDU2 
5,4, L5; $:25,1Ø1,N%3:0%;25,4,L%-57M%+57 25 
y 1Ø1,N3-570%+57; : ENDPROC 

64Ø DEFPROCV (L% ,M%,N%,0%) : GCOLØ, 1 : VDU2 
5,4,L$-2;M$48;25,101,N$-8;0$*2; : ENDPROC 

650 : 

660 DEFPROCL (AS ,W% ,V%) : A3=&A: X$-& 70: YS 
=Ø: PRINTTAB (WS , V$) ; :FORZ%=1 TOLENAS : ?X$- 
SCMIDS (AS ,Z%) :CALL&FFF :VDU23,24Ø,X%?1,X 
211;X$12;X2$13;X2?24,23,241,X$?5,X$15;X$106 
:X$17;X2$28:VDU240,8,10,241,11:NEXT: ENDPR 
OC 

67Ø : 

680 DEFPROCt:TS-VAL (MIDS(TIMES,23,2)): 
IFTS-oldts ENDPROC 

690 GCOLO,1:MOVEX,Y:PLOT6,oldsx,oldsy: 
IF TSz0:PROCm 

700 OS=TS*PI/3Ø:GCOLØ, 0: MOVEX,Y: SX=X+L 
S*SIN(QS) : SY=Y+LS*COS (QS) : PLOT6,SX,SY:01 
dsx=SX:oldsy=SY: oldts=TS: ENDPROC 

718 : 

720 DEFPROCm:MOVEX, Y:GCOL@, I : DRAWoldmx 
,oldmy : TM=VAL (MIDS (TIMES, 20 , 2) ) :QM=TM*PI 
/3Ø:GCOLØ, @:MOVEX , Ys MX=X+LM*SIN (QM) :MY=Y 
+LM*COS (QM) : DRAWMX , MY : ol dmx=MX: oldmy=MY : 
PROCh : ENDPROC 

730 : 

74Ø DEFPROCh:MOVEX , Y:GCOL@, I « DRAWoldhx 
,oldhy : TH=VAL (MIDS (TIMES, 17, 2) ) +TM/6Ø: IF 
TH=Ø PRINTTAB (4,8) LEFTS (TIMES, 18) 

75Ø IFTH>12THENQH= (TH-12) *PI/6ELSEOH-T 
H*PI/6 

810 MOVEX, Y:GCOLØ, Ø:HX=X+LH*SIN (OH) :HY 
=Y+LH*COS (QH) : DRAWHX, HY: oldhx=HX: oldhy=H 
Y 2: ENDPROC 

820 : 

830 DEFPROCCIk:MOVEX,Y:PLOT157,X-68,Y: 
PRINTTAB (4,8) LEFTS (TIMES, 10) : ENDPROC 

840 : 28 
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In these heady days of mice and 
icons, the subtle textured 
background hasachieved a 
certain vogue. David Graham 


finds a short-cut for the fashion 
conscious. 


There are many ways to create subtle 
background textures on the Beeb. The one 
that I want to look at here is of quite 
stunning economy and simplicity. The 
technique revolves around a single 
location in page 3 of the Beeb's memory: 
location &358 in fact. This holds the 
byte which is written all over the screen 
when any CLS (clear screen) instruction 
is executed. This byte is used for 
clearing the screen in all modes, though 
its effect is very different in mode 7 
from that in the other modes. In mode 7 
it actually fills the screen with 
characters corresponding to the byte held 
in &358 (normally 32 in mode 7), and we 
will look at this first before moving on 
to its more useful applicatio 
graphics modes. | 


MODE 7 
To test out the effect in mode 7, try 
the following: 
MODE 7 
?&358z42 
CLS 
The Screen will 


instantly fill with 
asterisks, because  ASCII(42) is the 
asterisk character. If you want to try 
other keyboard characters, you can use 
the following. When this program is run, 
pressing any key will cause the screen to 
fill instantly with the chosen character. 

10 MODE 7 

20 AS=GET 

30 ?&358-A$ 

48 CLS 

50 GOTO 20 


This technique of screen filling can 
be used in conjunction with windows. A 
text window should be defined using VDU26 
before the CLS is executed, and then only 


c) > æ 


very different. 


‘is different 


in the 


the window will be filled with the chosen 
character. But all this is of relatively 
limited application. We must turn to 
other modes to make maximum use of &358. 


THE GRAPHICS MODES 

In modes Ø to 6, the contents of &358 
are written to the screen in exactly the 
same way as in mode 7. But the effect is 
Instead of writing a 
given character to the screen defined by 
the contents of &358, this byte now 
determines the colour of each pixel on 
the cleared screen (a pixel is the 
smallest discrete unit of colour). Pixel 
mapping is rather a complex affair that 
in different modes. But we 
need not get too bogged down here. Some 
Simple examples will readily illustrate 
the effects. 


Perhaps the best mode to start off 
with is mode 4. To see the effect in 
action, try the following program: 

19 

20 

30 

40 

50 
Run the program, and enter any number 
between Ø and 255. The result will be 
vertical white stripes of varying spacing 
and density - 255 gives total whiteness. 


To see what is going on, enter first 
128, then try 64, then 32, then 16, 8, 4, 
2 and finally 1. You will see a set of 
vertical white stripes which shift 
minutely to the right as you progress 


‘down the scale. In other words, each bit 


of the byte at &358 turns on or off one | 
bit of the background white. When you | 
clear the screen, the byte is written 


|Successively into all screen locations, 


So building up a series of vertical 
lines. 


To produce a vertical stripe effect, 


‘we can turn on alternate pixels. The 
value to put into &358 is therefore 128 + 


32 + 8+ 2, or 170. The visual effect 
achieved by this will depend very much on 
the resolution of your monitor. On a low 


‘resolution screen you will not notice the 


Striped effect at all, and will see a 
uniform grey. On medium and high 
resolution screens, the vertical stripe 


pattern will be more obvious. You can 
‘accentuate this by altering the value 
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:C=Ø: PROCSTRIPE: *FX4, | 
PROCSTRIPE 


PRINTTAB (3,9)"STRIPE DEMO" 
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9Ø PROCKEY 
188 GOTO9D 
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CONCLUSION 
This has probably been the most 
difficult review I have ever had to do on 


Beeb hardware. I am used to using MS-DOS 
and IBMs at work, but having a machine in 
front of you that looks like a Beeb but 
does not respond or operate like one, can 
be hard to get used to. 


Taking the hardware first, it must be 
said that Acorn have done a brilliant job 
in producing a 16 bit co-processor that 
fits inside the Master on a board the same 
size as the Turbo. During the review, the 
unit performed faultlessly. 


The bundled software leaves me with 
mixed feelings. I found GEM Desktop a 
valuable addition to the system but GEM 
Paint, although fun to use and quite 
capable, does not have the power or polish 
of the excellent AMX Pagemaker which can 
do all that GEM Paint will do and much 
more. GEM Write I felt reasonably 
comfortable with, and like the rest of GEM 
is very user-friendly. The ability to mix 
text and images is a nice feature and so 
is the novelty of using the mouse to 


select various functions. I found it 
rather slow in operation like the rest of 
GEM, though, and felt hampered by the fact 
that so few pages could be held in RAM, 
and that text had to be printed from disc 
via an extra application. 


However , the GEM collection is 
certainly worth having though, and those 
who buy the Master 512 will be pleased to 
get it as part of the package. But, the 
machine is worthy and capable of running 
much more powerful software. 


The extra, and largely unsupported, 
utilities on the boot disc supplied with 
the 512 will be of most interest to those 
who want to experiment with the machine. 
There are some intriguing ones included, 
not all of which I have had space to 
mention. They all add to the power of the 
machine and deserve investigation by those 
who wish to go deeper into DOS Plus. 


Documentation supplied with the Master 
512 I found somewhat lacking. The GEM 
manual is generally fine but that for DOS 
Plus I feel is inadequate even for those 
who want to use DOS at a fairly simple 
level. 


The Master 512 is aimed primarily at 
the small business and educational markets 
where the major requirement is the ability 
to run standard business software packages 
(no Basic interpreter is supplied). A 
machine that can run CPM/86 and MS-DOS 
applications in so many disc formats is a 
powerful tool when you consider that you 
have all the strengths of the BBC computer 
as well. Couple that with the ability to 
run a large percentage of IBM material and 
a price tag of just £399 on top of the 
basic Master 128, and you have some very 
good reasons for investing in a 512. 


OFFERS 


Normal Price £56.35 


Beebug Price £47.00 plus £1.00 p&p 


Wordwise Plus owners may quote their registration number to claim a further £3.00 
discount. 


The Complete Wordwise Plus Handbook 


By Paul Beverley, Norwich Computer Services. 


Án excellent handbook for anyone using Wordwise Plus. Over 400 pages of 
information, advice, hints, tips etc etc. 


As reviewed in Beebug Aug/Sept. 1986 


We are able to offer the book and 
accompanying disc for the price of £19.00 
plus £1.50 p&p. Normal price £25.00 inc 


páp. 


Available from Beebug Retail, Dolphin Place, Holyw 


ell Hill, St. Albans, Herts. 
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46K Rom &34.C Members 


POWERSCREENS 
Eliminates electrostatic charge as well as reflection and glare. 


Asi 250mm x 170mm 320mm x 260mm £35.59 
Soe? 300mm x 230mm 350mm X 250mm h 


RIBBONS 


Epson FX80 £4.50 Oki 84 £4.20 
Epson LX 80 £4.50 Taxan/Kaga £4.50 


FLOPPY DISCS 
5!” lifetime warranty (boxes of ten) 


1-4 5-9 10+ 
SS SD 48tpi £13.20 £12.65 £12.00 
SS DD 48tpi £13.80 £13.20 £12.55 
DS DD 48tpi £17.82 £17.25 £16.00 
DS DD 96tpi £20.70 £19.50 £18.30 


5!” Storage — FF15 Flip 'n' File for 15 discs £7.00 


STATIONERY 
11 X 91 1pt listing paper micro perfs (2000 sheets) £13.50 

All prices include VAT and carriage. Free comprehensive catalogue upon request. 

Access & Barclaycard accepted. 


2 Advanced Media Limited, Media House, 6 Knolls Way, Clifton, Beds. SG17 saz. 
EON ORUM. E ` Tel: 04021 811317. Telex: 825044. m | TIN 


en RUM NCR NE oí cuan? SNES IS salable bv ` CREATIVE COMPUTING | 


mail order direct from our warehouse, with no extra charge Fleet Street Editor £39.95 (disk only) 
for postage and packing (UK only). All programs run on BBC Admin Xtra £14.95 (disk only) | 
B/B+ and Electron. Please enquire about Master-compatible Fonts ’n’ Graphics £14.95 (disk only) | 
versions. Walt Disney Graphics £14.95 (disk only) | 
Prices given are for tape versions. Please add £3 for 5. 25" | 
disks. Please state whether 40 or 80 track required. GAMES £6.95 
We accept cheques, postal orders, Access, VISA, and ee £6.95 
American Express. Please allow 28 days for delivery. Strike Force Harrier £9 95 
Send for our free colour catalogue, too! ———————— 
EARLY LEARNING/CHILDREN'S ENTERTAINMENT a € 
Caesar's Travels £12.95(disk only) Ages 3-9 BBC Mastermind Quizmaster £5.95 
Count with Oliver £7.95 Ages47 Joffe Plan £9.95 
Crack it! Towers £9.95 Age (+ Know Your Own Psi Q ` £9.95 
First Steps with the Mr Men £8.95 Ages 3-6 Know Your Own Personality £9.95 
Giddy Game Show £9.95 Ages 3-6 Star Seeker £9.95 
Here & There with the Mr Men £7.95 Ages 4-7 — adim 


Look Sharp! £7.95 Ages 5-11 PE area 
Mr Men Magic Storymaker £9.95 Ages 4-/ MIRRORSOFT 

Quick Thinking! £6.95 Ages 5-11 Dept BB, 

Quick Thinking Plus! £6.95 Ages 5-11 FREEPOST BS4382, 


Word Games with the Mr Men £9.95 Ages 5-8 Paulton, Bristol BS18 5BR (No stamp needed) | 


BEEBUG | SUPPLEMENT 


BEEBUG SUPPLEMENT 


Program Builder brings you over 
sixty complete routines ready to use 
when writing your own Basic programs. 
Why waste time writing frequently used 
code when you can rely on professional 
routines written for you, that will work 
first time. 


Program Builder offers over 60 
functions and procedures which may 
be combined with your own Basic 
program. They are all fully 
documented and use standard 
variables to ensure that they will be 
compatible with your work. 


A wide range of topics are covered Any number of routines May be qot 
; indus together in a single program. 
by Program Builder, which is fully 9 | MOR PE 


automated. Just select the desired There is not the space to list all the 
routine from an on-screen menu and routines in Program Builder but here is 
the code will be automatically added a small selection to give you an idea 


to your program. of its range: 


e Input € validate date e Graphics plotting e Mode 7 graphics 


® Binary from decimal e Circle plotter e Yes/No input 

e Menu & return input e String entry/justify/ ^ € Text justify 

® Special sound effects insert @ Print string 

o Strip spaces e Plot ellipse vertically 

e Text any size/height/angle @ Quicksort e Error handling 
e Double height text any e Screen dump e A new mode ... 


mode e Password Mode 8 


Members Price: Tape £12.00 — Disc £45.75 


Now is the time to contact us with your ideas and programs for inclusion in the 
Beebugsoft range. 


All submissions treated in strictest confidence. - Contact: BEE 
The Software Manager — 
Make money from your hobby. - Beebugsoft . _ ei 
` ` P.O. Box 50 
- St. Albans, ` 
| Herts. . 


HEAD-MASTER ROM: Prints your own headed 
paper with Kaga/Canon or Epson 
compatible printer. Any  size/shape 
headings, with graphics and different 
typefaces, to your (or our) design, on 
ROM, called with a simple *conmand. 
Prices from £25. For details and samples 
send A5 SAE to HEAD-MASTER, 206 Barker 
Drive, St.Pancras Way, London. 


Problems? try R-SOFT utilities! 

1. HOW-TO: An essential collection of 
software and instructions for frustrated 
new disc owners who want to move their 
programs to disc. 

3. ROMPULL + TAPEDUMP. 

4. AUTOMATIC DISC MENU: Includes 
sideways-RAM version, can boot from ROM, 
works with 2nd 6592. 

6. SWROM*: Puts your Basic / machine 
code programs in ROM format. 

7. RFS-GENERATOR: Generates ROMs for the 
*ROM filing system. This does not use 
the DFS workspace and is an ideal tool 
to run nasty programs from disc. 

All above packages £5.00 each. 

13. D-MASTER-V2: Superb disc backup 
program; needs 8271 and swram; £8.00; on 
16K EPROM £12.00. Upgrade for D-MASTER 
owners: £500/£9.09. 

16. OPUS SD/DD/Challenger: Disc menu, 
disc editor, disc indexer, etc. Please 
enquire for further details. 

17. D-EDITOR: based on D-MASTER-V2: will 
edit any disc D-MASTER-V2 can backup! 
£8.00/£12.00. 

Please send SAE for full list. 

R-SOFT, 22 Marriotts Close, Felmersham, 
Bedford, MK43 7HD. (0234) 781730. 


Music 500, issues 1 and 2 tapes + 1 year 
Ample User subscription £100 ono. Ikon 
Ultradrive 1.04 UFS + manual and 18 mini 
cassettes £80. M.Lee (0535) 603277. 
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For Sale: Wordstar Professional suite 
for 280 £225, Acornsoft GXR £18, 
Ultracalc 2 £30, Exmon 2 £15, DNFS 1.2 
£10, Basic 2 £10. Acorn Prestel Adaptor 
£70. All open to offers. Phone (0533) 
312661. = 


BBC with Torch Z8Ø, twin 8ØØk drives, 
Hi-res Kaga green monitor, cassette 
recorder, double plinth, ATPL board with 
16K sideways RAM. View, Viewsheet. All 
perfect with manuals plus Wordstar 
Professional, DBaseII, Supercalc 2. All 
fully configured for Torch/BBC. Includes 
'Perfect' software with Torch processor. 
All software is original with manuals. 
Nothing pirated at all. Complete system 
for business user, club secretary etc. 
£1250 the lot. 91-552 1467 (evenings). 


BEEBUG back issues (bound) Vol.1 No.l to 
Vol.4 No.8. Offers: R.Haynes (office) 
21-729 3299, (Home) 01-672 8376. 


4 BBC-Bs, 1ØØK disc drives, monochrome 
monitors, Edword wordprocessor ROMs. 
£400 each ono. London School of Foreign 
Trade, 89 Westminster Bridge Road, 
London SE]. 01-928 6819. 


STARdataBASE. Original, with registered 
number. Improved Utilities. £30. 
Tel: (9785) 592489. 


BBC B+ with speech ROMs, View, Basic 
Editor £350. Z8@ 2nd processor with all 
software £270. Tel: (0225) 743710 near 
Bath. 


Sideways RAM Board 16K with disc 


Software £15. (0903) 892682. 


BBC B+128, second processor, View 3, 
Viewsheet, ADFS £475 ono. Chris, 5 
Devonshire Road, Westbury Park, Bristol. 

Tel: (0272) 45699. i 


SUPPLEMENT 


PRINTERS SUPPORTED 


Anadex DP 9000 series Seikosha GP100 Kaga Taxan 

"Brother HRS *Seikosha GP550 Mannesmann Tally MT460 
*Canon PJ1080A Shinwa CTI CP80 Micro-P MP-165 

Cosmos 80 Star all Panasonic KX-P series 
Ensign 1650 “Tandy DMP-400 Seikosha GP80 

Epson FX, LX Brother M1009 Seikosha GP250 


Gemini Canon A-1210 Seikosha GP700A 


Integrex 132 Colour Canon PW series Star DP-8480 
Mannesmann Tally MT80 Datac 109V “Tandy CGP115 
NEC PC 8023 Epson all 


*Olivetti JP404 Facit 4510 "Only available on 
Rom version 


DIGIT: Image Analysis for RBC and 
Grafpad. . Count objects, measure 


distances, thicknesses. Digitise shapes, 
measure perimiter, area, radius, volume, 
Feret diameters, C of G, shape factors. 
Edit, display and print, results as 
histogram with mean and S.D. Uses: 
` Quantatative Microscopy, Map 
Measurement, Metallurgy etc. 40 or 80 
track disc and instruction manual. £70. 
For GrafpadI I (requires Grafpad 
utilities disc) or A3 Grafpad. Institute 
of Opthalmology, Judd St., London, WCIH 
90S. 01-387 9621 ext.64. 


BEEBUG 


ASSIFIED ADS (continued 


6502 Second Processor; Hi-View Disc; 
Hi-Basic ROM; DNFS ROM, hardly used, 
complete with manuals, £180. Write: 
R.Christian, Croit-y-Keeil, Port 
Grenaugh, Santan, Isle of Man. 


BBC B, O.S 1.2, Help ROM, manuals, 
joysticks, colour monitor, £450 ono. 
Phone A.Rodgers 01-446. 3033 evenings. 


ELECTRON complete with £70 of BEEBUGSOFT 
software £50. R.Barnes,  Tel:(05827) 
5929. Also Sinclair QL with preliminary 
Basic £50 ono. 


SUPPLEMENT 


BEEBUG 


. .. LOWCOSTCAD. | 
ATTENTION ALL ELECTRONICS CIRCUIT DESIGNERS!! | 


IBM PC (and compatibles) BBC MODEL B, B+ and MASTER, AMSTRAD CPC and 
SPECTRUM 48K 
ANALYSER I and Il compute the A.C. FREQUENCY RESPONSE of linear (analogue) circuits. GAIN and PHASE, 
INPUT IMPEDANCE, OUTPUT IMPEDANCE and GROUP DELAY (except Spectrum version) are calculated over 
any frequency range required. The programs are in use regularly for frequencies between 0.1Hz to 1.2GHz. The 
effects on performance of MODIFICATIONS to both circuit and component values can be speedily evaluated. 
Circuits containing any combination of RESISTORS, CAPACITORS, INDUCTORS, TRANSFORMERS, BIPOLAR 
AND FIELD EFFECT TRANSISTORS and OPERATIONAL AMPLIFIERS can be simulated — up to 60 nodes and 180 
components (IBM version). 
ideal for the analysis of ACTIVE and PASSIVE FILTER CIRCUITS, AUDIO AMPLIFIERS, LOUDSPEAKER CROSS- 
OVER NETWORKS, WIDE-BAND AMPLIFIERS, TUNED R.F AMPLIFIERS, AERIAL MATCHING NETWORKS, TV 
LE and CHROMA FILTER CIRCUITS. LINEAR INTEGRATED CIRCUITS etc. STABILITY CRITERIA AND 
OSCILLATOR CIRCUITS can be evaluated by “breaking the loop”. 
Tabular output on Analyser |. Full graphical output, increased circuit size and active component library facilities 
on Analyser ll. 
Check out your new designs in minutes rather than days. 
ANALYSER can greatly reduce or even eliminate the need to breadboard new designs. 
Used by INDUSTRIAL GOVERNMENT and UNIVERSITY R & D DEPARTMENTS worldwide. IDEAL FOR 
TRAINING COURSES. VERY EASY TO USE. Prices from £20 to £195. 


A Ä——————— 


LOW COST COMPUTER DRAUGHTING 
On the BBC MODEL B, B+ 


DRAWER | enables drawings to be created and modified, quickly, easily and with the minimum of hardware. All 
of the major program elements are written in machine code giving exceptional speed of operation. 


FEATURES 
e Rubber Banding for drawing lines. 

© Solid or Dotted line types. 

e Circles, Arcs and partial or complete Ellipses. 
e Vertical or Horizontal Text. 
o 
o 


Pan and Zoom. 
Merging of drawings and library symbols from 


disc. 

e Upto 20,000 lines on a drawing. 

e o Snapto a user defined grid. 

e Absolute or Relative cursor co-ordinates displayed 
on screen. 

e Input from analogue joystick, mouse or trackerball. 

e Qutputto standard dot matrix printer. 

e Price from £45 excl. VAT. 


Minimum Hardware Required: BBC Model B. Single or Dual 5.25" Disc Drive — 40 or 80 track. T.V. or monitor. 
Games joystick, Mouse or Trackerball. Dot matrix Printer (Epson 80 series or Epson compatible — BBC Default 
Mode. 


Full AFTER SALES SERVICE with TELEPHONE QUERY HOT LINE and FREE update service. 
For illustrated leaflets and ordering information please write or phone 
NUMBER ONE SYSTEMS LIMITED 

Ref: BB Crown Street, St. Ives, Huntingdon, 
Cambs PE17 AEB. Tel: 0480 61778. 


BEEBUG 


For advertising details please 
contact: 


Lynn Lloyd Yolanda Turuelo 
on or on 


(0923) 677222 (0727) 40303 


or write to 
PO. Box 50 
St. Albans Herts 


SUPPLEMENT 


> 


2530 IF lock?n=-(s$="") THEN PROCos ("AC 
CESS :"+D$+","+name$ (n) +s$) : lock ?n=ABSNO 
T (sS="") 

2540 ENDPROC 

2550 : 

2568 DEFPROCdelete (n) | 

2570 PROCos ("DELETE :"+D$+"."+nameS (n) ) 

258Ø ENDPROC 

259Ø : 

2600 DEFPROCdump (n) 

2610 PROCos("DUMP :"+DS+"."+nameS (n) ) 

2620 PRINT"Any key to continue":x=GET 

2630 ENDPROC 

2640 : 

2650 DEFPROCrename (n):LOCAL i,aS 

2660 FOR i=@ TO 8:aS=aS+CHRS (new? (9*n+i 
)) ¿NEXT 

2670 PROCos ("RENAME :"4DS$-","-nameS (n) + 
" "+aS) snameS (n) -a$: ENDPROC 

2680 : 

2690 DEFPROCcompact 

2700 CLS:PROChwm: $&380-2'" COMPACT "+DS 

2710 *K.0X$-&80:Y$-&3:CA.SFFF7|MCH. "DIS 
CMAN" |M 

2720 *FX138,0,128 

2730 PROCstop (Ø) 

2749 

2758 DEFPROCcopy (p) 

2760 PROCos ("COPY "+D$+" "4CHR$cmd?p-4" 
"+nameS (p) ) : ENDPROC 

2770 : 

2780 DEFPROCOS (cS) :LOCALX3,Y% 

279Ø PRINT"*"+05:X%=&80:Y%=3:58&38Ø=cS:C 
ALL&FFF 7 : ENDPROC 

2800 : 

2810 DEFPROCexec (aS,nS) 

2820 S&380=aSt+" :"+DS+".,"+nS 

2830 * KEY OX%=& 89 : Y%=3:CALL&FFF7 |M 

2840 *FX138,0,128 

2850 PROCstop (Ø) 

2860 : 


2870 DEFPROChwm:LOCAL Y% : 

2880 A$-180:X$-PAGE DIV 256:CALL-12 
2890 ENDPROC 

2900 : 

2910 DEFPROChex (c, ! & 70 , 2& 74) 

2920 VDUc : CALL code: ENDPROC 

2938 : 

2940 DEFPROCasmbl 

2950 FOR p=Ø TO 2 STEP 2:P%=code 

2960 [ OPT p 

2970 LDA &74:LSR A:TAX:BCS K:DEX 

2980 .K LDA &70,X:BCS N:PHA:LSR A 

2990 LSR A:LSR A:LSR A:JSR out:PLA 

3000 N AND #&F:JSR out:CLC:DEX:BPL K 
3010 RTS 

3020 .out TAY:LDA hx,Y:JMP &FFE3 

3030 .hx:] :NEXT:SP%="Ø123456789ABCDEF" 
3040 ENDPROC 

3050 : 

3060 DEFPROCnewname (n) 

3070 V-9*P?n:VDU31,2, (n-1) MOD 29,129 
3080 FOR r=Ø TO 8:new?(V+r) =ASCMIDS (nam 
eS(P?n),r*1,1) ¿NEXT 

3090 r=0:REPEAT 

3100 IF r=] THEN r-2:VDU46:GOTO 3100 
3110 x=GET:IF x=127 AND r=Ø THEN VDU7:G 
OTO 3199 

3120 IF (x=127 OR x=136) AND r=2 r=1:VD 
U8 

3130 IF x=127 THEN r=r-1:VDUx:GOTO 3190 
3140 IF x=136 AND r>Ø r=r-1:VDU8:GOTO31 


3159 IF x=137 AND r<9 r=r+1:VDU9:GOTO31 


3160 IF x=13 THEN 3199 

3170 IF r=9 OR x«32 OR x>126 THEN VDU7: 
GOTO 3199 

3180 new? (V+r) =x: VDUx: r=r+1 

3190 UNTIL x-13:VDU31,3,(n-1) MOD 29 

3200 FOR r=Ø TO 8:VDU new? (V+r) ¿NEXT 

3210 VDU31,38,(n-1) MOD 20:ENDPROC 


PAINTING BY NUMBERS BEEBUG Vol.5 No.3) 


We are sorry but the last eight lines of the FILLER program were accidentally 


omitted from the magazine listing last month. 
your copy of this program. The magazine cassette/disc version 


The lines below should be appended to 


is quite complete and no 


further action is required in that case. We apologise for any inconvenience. 


1218 ] 

1220 mode=2p+4Ø:coltab=mode+8 

1230 NEXT 

1240 FORIS=09TO44STEP4: READIS! zp: NEXT 
1250 DATA &70230F8,&80019102,&30230FC 


1260 DATA &40110201,&10230FE,&A0550400 


1270 DATA &70158F8,&40010101,&30158FC 


1280 DATA &A0110200,&FF100800 ,&FFFF2018 
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6020 IF NOT open’ ENDPROC 
6040 PRINT"File closed - ";rec-1;" reco 
rds in use" 
6060 CLOSES0:0pen$-0:debit$-0:PROCclear 
6080 ENDPROC 
6100 : 
6300 DEF PROClistc:LOCAL I 
6320 PROCwindow] ¿CLS 
6340 FOR I=] TO N:PRINT com$(I):NEXT I 
6360 PROCwindow2:PRINT"Press any key to 
continue"; 
6380 IsGET:PROCClear:PRINT:ENDPROC 
6400 : ; 
20000 DEF FNask (msg$) 
20020 LOCAL A:PRINT msg$; 
20040 REPEAT: A=INSTR ("YyNn",GETS) :UNTIL 
A:IF A>2 THEN PRINT"N" ELSE PRINT"Y" 
20060 =A 
20089 : 
20200 DEF PROCclear 
20220 PROCwindowl :CLS 
20240 PROCwindow2: ENDPROC 
20260 : 
22400 DEF PROCwindowl:IF w-2 X=POS: Y=VPO 
S 
20420 VDU28,0,19,79,3:w-l:ENDPROC 
20440 DEF PROCwindow2:VDU28,Ø,24,79,21 
20460 VDU31,X,Y:wz2:ENDPROC 
20480 : 
20700 DEF PROCread (n,C,R):LOCAL 1 
20720 PTR#C=FDR+recs* (n-1) 
20740 FOR I=] TO f:INPUT4C,recordS(I,R): 
NEXT I 
20760 ENDPROC 
20780 : 
20800 DEF PROCwrite(n,C,R):LOCAL I 
20820 PTREC=FDR+recs* (n-1) 
20840 FOR I=1 TO £:PRINT#HC, records (I,R): 
NEXT I 
20860 ENDPROC 
20880 : 
21200 DEF FNstrip(p$,c$) :LOCAL I:I-LENpS 
+] 
21220 REPEAT: I=I-1:UNTIL MIDS (p9,1,1)<>c 
S OR I=Ø 
21240 =LEFTS (pS, 1) 


Filer Accounts Option (contd.) 


21260 3 

21600 DEF FNfield(p$) :LOCAL I: I= 

21620 REPEAT: I=I+1: UNTIL pS$=fields (1) OR 
I>f 

21640 =I 

21660 `: 

21800 DEF FNval (p) =VAL (records (p,0) ) 
21820 : 

22000 DEF FNchop (d,n) ¿LOCAL i,m,p:IF n=] 
=] 

22020 m=1:REPEAT:m=m*2:UNTIL m>=n+1 
22040 m=m/2:i=m 

22060 REPEAT: i=i/2 

22070 IF mn REPEAT:m=m-i:i=i/2:UNTIL m< 
=n 

22080 PROCread (m,F,%) :p=FNval (date) 
22100 IF d<p THEN m=m-i ELSE IF d>p THEN 
m=m+1 

22120 UNTIL d=p OR i=] 

22140 REPEAT: PROCread (m,F, 0) :m=m-1 : UNTIL 
FNval (date)<d1 OR m=@ 

22160 IF m=Ø m=1 

22188 =m 

222008 3. 

30000 DEF PROCstar (pS) : LOCAL I 

30010 PROCwindowl:CLS:PROCoscli (p$) : PROC 

window2 

30020 PRINT"Press any key to continue"; 
30030 I=GET: PROCclear: PRINT 

30040 ENDPROC 

30050 : 

30060 DEF PROCoscli (Sos) - 

30070 LOCAL X$,Y$ 

30080 X$-0s:Y$-0s DIV 256:CALL &FFF7 
30090 ENDPROC 

30100 : 

31000 DEF PROCerror 

31010 IF ERR=17 VDU15:PROCclear: PRINT ' "C 


ommand aborted":GOTO 140 
31020 IF ERR>189 AND ERR«208 REPORT: PRIN 


T: GOTO1 44 

31030 ON ERROR OFF 

31040 PROCwindow2 

31050 REPORT: PRINT" at ";ERL 
31060 PROCclose:VDU26:*FX4,0 
31070 ENDPROC el 


DEFAULTS 


Contents of &358 
MODE 7 = 32 
OTHER 
MODES = Ø 


Mode changes 
reset default 


j three articles, Alex Kang 
introduces the diese i of printer gra- 
phics, all : 


In the first article of this series we 
will be looking at the way in which 
graphics are printed on Epson compatible 
printers. This will lead us on to quite 
complex graphics applications; and in 
parts two and three of the series we will 
develop a flexible screen dump which will 
print any screen window. In the final 
part, a complete page-maker will be 
presented, allowing the easy composition 
of pages containing graphics and text in 
any combination. 


PRINTER CONTROL CODES 

The whole of this series of articles 
revolves around the direct control of the 
printer from software run on the BBC 
micro. All printers have the facility for 
some kind of software control, and most 
use what is called an Escape sequence to 
signify control characters. Thus if you 
send the letter K to your printer it will 
(hopefully) print a "K" on the paper, but 
if that letter is preceded by character 27 
(the ASCII Escape character), then your 
printer will probably behave differently. 
On an FX8Ø or similar, it will turn on the 
graphics printing option, and so on. It is 
Escape sequences such as this which allow 
us to control the printer in a completely 
user defined manner. 


To send control codes to the printer 
on a BBC micro is relatively simple. You 
must first turn on the printer with  VDU2 
(VDU3 turns it off). Then each character 
you send must be preceded by a VDUl. VDU 
codes can be strung together, so that the 
following sequence will turn on the 
emphasized printing mode on an FX8Ø or 
Similar: 


VDU2,1527,1,69,3 
VDU1,27,1,mode$,1,N12,1,N22, 
data2,1,data3,1....etc. 
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1,datal,l, 


The code for emphasized printing is 
Escape E (ASCII 27 and 69). The previous 
String sends VDU2 to turn on the printer, 
then 27 and 69, each preceded by a 1; and 
then an optional 3 to turn the printer off 
again. 

ASCII Description 

27,64 Reset code 

27,69 Emphasized ON 
27,70 Emphasized OFF 
27,71 Double strike ON 
27,72 Double strike OFF 
27,52 Italics ON 

2/553 Italics OFF 


code 

ESC 
ESC 
ESC 
ESC 
ESC 
ESC 
ESC 


Ui IG "ju c 


| A selection of Epson FX8Ø codes | 


The following short program turns on 
underlined italics on an FX80 or similar, 
and prints some text: 


10 VDU2:REM Turns printer on 

20 VDUT$27,1,52,15274 1,4552 1,1 

30 PRINT "This is underlined italics" 
40 VDU1,27,1,64:REM reset printer 

50 VDU3:REM Turns printer off 


So far we have talked of printer 
control codes in terms of setting up 
particular text styles, but in this series 
we shall be more concerned with directly 
controlling the movement of the print 
head, and the printing pins themselves, so 
that we can achieve screen dumps, and the 
mixing of text and graphics. We will look 
first at the vertical positioning of the 
paper relative to the print head. 


me hys preme 
of paper between | Figure 1: | 
lines is called a | | 
line feed, and | 
the distance the | 
paper moves is | 
the line space. | 
The default line | 
spacing on most | 
printers is 1/6 | 
inch, which prod- | 
uces six lines of | 


print per inch. | 
Figure 1 shows a | Line Spacing 
text character | 


FE Å EEG 
matrix. AS may be seen, each dot occupies 
1/72 of an inch, so that each default line 
Spacing is equivalent to 12 vertical dots 
in height. 


The line spacing may be altered using 
Escape A n where n represents n/72 of an 


inch (ASCII equivalent: 27,65,n). The 
short program below will show the 


difference in line spacings: 


10 REPEAT 

20 INPUT "Line spacing (8-24):" n% 

30 UNTIL n%>=@ AND n%<85 

AQ VDU2,1,27,1,65,1,n$ 

50 FOR i$-1TO3 

60 PRINT "Line spacing ";n$;"/72 in." 
70 NEXT:VDUI1,27,1,64,3 


The Escape sequence 27,64 (or Escape 
@) is a useful one to remember. It resets 
the printer to its default settings. It is 
often a wise precaution to issue this both 
at the start and the end of a printout. 


PRINTER GRAPHICS 

In the printer graphics modes, the 
user program controls exactly where each 
dot is printed, column by column and line 
by line. Normally, only eight of the nine 
pins on the print head are used for 
graphics, and we can imagine these eight 
pins as being eight bits in a data byte, 
with the most significant bit as the 
top-most pin. 


The two most common graphics modes 
are: 


Single density (489 dots/8" line) 
set with Escape K (ASCII 27,75) 


Double density (960 dots/8" line) 
set with Escape L (ASCII 27,76) 


The difference between them is simply that 
in the single density mode the print head 


moves twice as far horizontally between 
dot impressions as it does in double 
density. 


These two commands must both be 
followed by a pair of numbers N1% and N23 
which tell the printer how many data bytes 
to expect. N1% carries the low-byte of the 
number, and N2$ the high-byte. Thus if the 
number of data bytes to be sent is D$, 
then: 


N1%=D% MOD 256 
N2%=D% DIV 256 


Following these are the data 
themselves. So the format becomes: 


bytes 


VDU1 , 27,1 ,mode%,1,N1%,1,N2%,1,datal,1, 
data2,1,data3,1....etc. 


where mode2-75 for single density and 
mode%=76 for double density. Let us take 
an example. Sup- _ | 

muse on E pr 


pattern using | 
just two bytes as | 
illustrated in | 
Figure 2. The | 
values of each | 
byte (or each | 
column) are cal- | 


culated as shown. | 
We can print 20 | 
sets (ie.40 data | 
bytes) of this | 
pattern with the | 
following: i 


Figure 2 Bit map 


10 D$-49 

20 mode%=75 

30 sets$-20 

AQ NI3=D% MOD 256:N2%=D% DIV 256 
50 datal%=204:data2%=51 : VDU2 

79 VDU1 ,27,1,mode3,1,N13,1,N2% 
80 FOR set=1 TO sets% 

90 VDUI ,datal$,1,data2$ 

108 NEXT 

118 VDU1,27,1,64,3 


To print 5 lines of the above pattern, add 
the following lines: 


60 FOR line=1TO5 
65 VDU1,27,1,65,1,8,1,13 
105 NEXT 


Try changing mode$ to 76 to see the 
effect of printing in double density. To 
produce the same width of pattern in 
double density, you will need to double 
the values of D% and sets%. If your 
printer has other graphics modes such as 
high speed double, or quadruple density», 
you may like to try them to See their 
effect. 


In the next issue we will develop a 
flexible screen dump which allows the 
dumping of any part of a screen in any 
graphics mode, and will discuss ways in 
which it may be tailored to the 
requirements of individual printers. 


el 
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If you were at the 
recent Micro User show, 
then. you probably saw 
copies of Paul Beverley's 


latest ouvre chained in 
their hundreds to his 
Wlre-frame carousel. To 


liberate one would have 
cost you £15.00 at the 
time: it now costs £17.50 
by post. But is this rather 
expensive book good value 
for money? 


To begin with it is an 
exceedingly large book - 


some 400 pages in length, 
and done out in Computer 
Concepts green. Though in 


spite of using CC's house 
style, the book is a quite 
independent production of 
Beverley's "Norwich 
Computer Services'. 


The book is organised 
into 16 chapters with some 
useful appendices and an 
excellent index. The last 
1@ chapters (and in fact 
300 of the book's 
various aspects of the 


400 pages) deal with has 
Wordwise 


Does the world 

really need yet 

another book on 
Wordwise from 

the Wizard of Norwich? 
David Graham conjures 
up the answer. 


THE COMPLETE 

WORDWISE PLUS 

HANDBOOK by Paul 

Beverley, Norwich 

Computer Services, 

31 Cattle Market Street, 

Norwich NR1 3DY. 

Tel. 0603-621157. 

Price: £17.50 inc p. & p. 
Disc £7.50 


Plus 


AS ever, Beverley 
writes clearly, and 
moreover he writes from the 
point of view of the day- 
to-day user of Wordwise: 


not an unreasonable stance 


Since the book itself was 
written with it. But the 
consequence of this is that 
some of the oddities of 
Wordwise and Wordwise Plus 
that you may have been 
wrestling over for months, 
are explained and overcome. 
For instance, if you are 
using a printer, such as 
the Epson FX8Ø, that cannot 
normally print on the top 


line of the paper, the only 


effective way to use paging 
is to set up TS as zero, 
and BS as around 8 or 19. 


Or on another point, 
have you ever had embedded 
Wordwise printer commands, 
particularly at the start 
of a document, ignored by 
your printer for  inexp- 
licable reasons? Beverley 


Solved it! The answer is that printer 


indent 


programming language, so that very little 
of the book is of relevance to 
Old-Wordwise users. The fact that so much 
of the book is devoted to the programming 
language should not necessarily deter 
potential readers however, because much of 
the treatment is applications-orientated 
with a multitude of program listings of 
potentially wide interest. But more of 
this later. 


What of Beverley part one? The first 
Six chapters of this book will be 
extremely useful to any user of Wordwise 
or Wordwise Plus. The book is not written 
for the absolute beginner in the manner of 
the early chapters of Bruce Smith's book 
on Wordwise (Wordwise Plus - a user's 
guide, Collins £9.95 reviewed briefly in 
Beebug Vol. 4 No. 7), but addresses itself 
to a number of specific topics. In this 
context Beverley gives very thorough 
coverage of the interface between word 
processor and printer: not the interface 
in a hardware sense, but the way in which 
Wordwise may be persuaded to print what 
you want where you want it. 
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commands which have any form of 
command (IN or TI) between them and the 
next piece of text, are ignored. So if you — 
are indenting, indent first, and send 
printer commands afterwards. 


The book contains a good number of 
such observations which will, I am sure, 
save a great deal of teeth grinding and 
hair tearing; but it also contains much 


useful specific advice and general 
information, as befits a handbook of 
quality. 


The second, and major part of the book 
does not fall so readily into the handbook 
category as the first. It consists largely 
of some sixty programs written in the 
Wordwise Plus programming language. These 
are grouped under six major headings: 

Text manipulation 
Document. layout 

File manipulation 
Database applications 
Numbers and numbering 
Calculations 


Of these, 
section 


the Database applications 
useful, 


is arguably the most 


containing programs to 
handle name and address 
files, label printing and 
mail-merging. 

Every program in this 
part of the book is 
accompanied by extensive 
documentation. And at least 
part of the function of 
these programs is to 
illustrate the use of 
various techniques in 
Wordwise Plus programming. 
In addition, Beverley 
provides a small number of 
short routines specifically 
intended to be incorporated 
into larger programs. 


However, the fact that so much of the 
book consists of programs using the 
Wordwise Plus programming language. I 


regard as something of a disappointment, 
especially in view of the book's title. I 
would have liked to see a number of 
chapters in this part of the book that 
were technique-orientated tutorials: 
perhaps a section on screen presentation 
and the use of VDU codes, one on string 
handling, one on machine code, one or two 
on the writing of utilities, and so on. 
Beverley does tell us about techniques in 
his very full treatment of each program 
presented, and there is clearly a very 
good case to be made for the lavish use of 
example programs in a book such as this. 
But a handbook needs to approach technique 
more directly for a greater part of its 
volume than the present work. 


This is not to criticise the programs 
themselves. They cover a very wide range 
of topics, and there are many useful ones 
amongst them. Of course, Wordwise Plus is 
such an appealing language to write in 
that Beverley has fallen into the 
inevitable trap of writing some things in 
the language just for the sake of it, when 
it would have been much easier to use 
Basic. But even these programs serve the 
fundamental purpose of demonstrating the 
use of the language. So why not write an 
invoicing program in Wordwise Plus? - even 
if the triple-precision arithmetic 
necessary for calculating the VAT results 


in a much longer and slower program than 
could have been achieved in Basic: that is 
not the point! 


To be quite fair, not 
every chapter in part two 


of the book presents 
program listings. The 
programs are sandwiched 
between two expository 
chapters: an introduction 
to the language, and. a 
section on hints and tips 
for the Wordwise 
programmer. This latter 
contains one or two true 


gems: witness section 16.29 
for example which gives 
some of the major zero page 
locations used by Wordwise 
Plus. These can be 
enormously useful to the 
programmer. Thus Beverley 
reveals that &8F contains a 


status of which bit zero tells you 


byte 
whether Wordwise is in Menu or Edit mode. 


This is just what you need if you have a 
program which has to issue commands 
directly from the Wordwise menu (Wordwise 
will not execute a command when in edit 
mode). This question is treated more fully 
in section 16.15. 


The disc of the book is also available 
at a relativley modest £7.50. It contains 
some sixty programs which may be selected 
from a special menu - run of course from 
Wordwise Plus! A novel feature of the disc 
is that it offers a second option, which 
will unpack the files and store them on 
two new disc surfaces in a 
one-program-per-file . format for easier 
subsequent retrieval. 


All in all, Paul Beverley's glossy 
green tome will prove to be an extremely 
useful one for experienced users of 
Wordwise Plus. Less experienced users will 
benefit greatly from reading Bruce Smith's 
book before graduating to Beverley's 
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The final article from Bernard Hill on 
using sideways RAM software pro- 
vides some useful utilities, including 
the ability to rename any sideways 
ROM command and avoid all those 
command-name conflicts. 


In the first article of this series 
(Vol.5 No.2) we looked at the way in which 
a Sideways ROM responds to service calls 
(in particular the  *HELP service call - 
number 9) and produced some useful 
initialisation routines based on service 
call 1. Last month's article contained a 
complete * command parsing routine and 
illustrated this with * commands to drive 
a printer in its special effect modes. 
This month we expand the collection of 
* commands with some utilities. 


These can be incorporated into your 
growing sideways RAM utility by merging 
the listing here with those of the 
previous two months. As with the code 
given last month, the ROM sections are 
completely independent, so you can omit or 
include whatever you wish. The only 
restriction is that you must place the 
calls to the two procedures somewhere 
between PROCromhead and PROCendrom. 


The first routine, PROCutils, gives 
two fairly standard utilities: a function 
key lister and a ROM lister. The commands 
to call these utilities may be changed by 
altering the parameters of PROCutils. The 
function key lister is very standard, but 
the ROM lister has a feature not often 
seen elsewhere: the ability to distinguish 
between 8K and 16K ROMs. 


The second routine,  PROCredirect, 
needs more introduction. ROM clashes are a 
sad fact of life on the Beeb. Despite the 
BEEBUG convention of an optional prefix to 
distinguish the commands from ROMs of 
different companies, I always seem to have 
ROMS in my machine whose commands are 
'hidden' by other ROMs. For example  *EDIT 
is a command to which at least three ROMs 
respond - Disc Doctor, Toolkit Plus and 
Watford DFS. 
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This very easily customised routine 
enables you to rename those annoying 
commands. Now you can call View with 
*VIEW, or address your ROMs directly with 
a single command without worrying about 
their priorities at all. 


As with the procedures in the previous 
articles, the one parameter is the line 
number of the first DATA statement of the 
redirection data. Each data item consists 
of an old command (e.g. the EDIT of 
*EDIT), the new command you want to use 
(e.g. *SHOW) and the name of the ROM which 
you want to respond to this (e.g. DISC 
DOCTOR). As long as you get the beginning 
of the ROM name correct and unambiguous 
then that will do, but be sure you have 
the correct case and spacing (e.g. for 
"DISC DOCTOR', "DI" would do, but .'Disc' 
would not). Consult the output of the 
ROMlist utility above if you don't know 
the exact name of any of your ROMs. Should 
you Shuffle the ROMs in your machine then 
these routines will still work, but if you 
remove a ROM or mis-spell its name in the 
DATA statement then an error message is 
issued when you attempt to use it. 


The command works by jumping directly 
into the relevant ROM, using JSR &8003. 
However, since you cannot jump into a ROM 
directly from another ROM, it is necessary 
to jump first into an area of normal 
memory. This means we must find a  'safe' 
area of normal memory, into which our ROM 
will put 20 bytes of code. The replacement 
command line also needs to be set up, 
which involves another free area to 
receive the reconfigured command (e.g. 
"*EDIT 19999"). 


Many areas are possible but be careful 
that any of the ROMS responding don't use 
this area for the command you want to 
process or the system may hang after the 
command has been executed. In the listing 
I've chosen the Tape Filing System 
BGET/BPUT workspace (&380-&3DF) but if you 
are likely to need to use this while the 
command is being executed (e.g. Toolkit 
Plus's *CHECK or MERGE) then you will need 
to choose some other area. Consider part 
of pages 6 or 7 (Basic use only), or 9, &A 
or &D. Simply change the variables 
‘target’ and 'command' in line 20010. 


ADDING TO THE ROUTINES 


You will have noticed that the program 
built up in these three articles is highly 
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modular 
sections to suit yourself. Writers of 
other routines may care to conform to this 
format in order to share their work and 
ideas with other members through these 
pages. 


so that you can mix-and-match 


Each section of code is contained in a 
single procedure which generates code to 
perform a specific action. Entry to the 
code is from the top and exit from the 
bottom (i.e. data bytes must be embedded 
and jumped over) so that the next 
procedure's code can start executing 
immediately. The entry will be with A, X, 
Y and the stack set up exactly as on entry 
to the ROM. Exit should be just the same, 
with any scratch space or memory areas 
used (e.g. &F2-3) completely restored and 
the stack intact so that the next section 
of code generated can behave as though it 
were the first on entry to the ROM. 


The one exception to this may be if 

the ROM needs to signal back to the system 
that it wants to block all other ROMs (and 
routines) from having their go. In this 
case restore the stack, reload X and Y, 
then put Ø in A and RTS. Remember that 99% 
of the service calls passing through your 
ROM will not be for you and ignoring these 
simple rules can easily lead to a hung 
machine. 


If you wish to use the command parser 
introduced last month (PROCcommandhandler) 
then organise your code along the models 
of this month and last month's utilities, 
with the parameter to  PROCcommandhandler 
being the address of the command table (as 
explained last month). If you exit your 
code without executing a command then the 
procedure will handle this for you (it 
exits at the bottom), but if you do 


execute a command then be sure to put: 
PLA: TAY: PLA: TAX:PLA:STA &A8:LDAFØ:RTS 
to finish securely. 


156 CLEAR 

157 PROCutils ("KEYS", "ROMS") 

158 CLEAR 

159 PROCredirect (13004 ,"REDIRECT") 
13000 REM redirection data 


13019 
13926 
13030 
13040 
13050 
13060 
13070 
13080 
13098 
13100 
13119 
13120 
13130 
13149 
13150 
t-1) 

13169 
13170 
t-1) 

13180 
13199 
13200 
13210 
13220 
13250 
13260 
13270 
13280 
13290 
13300 
13319 
13320 
13330 
13349 
13350 
13360 
13379 
13380 
13390 
13400 
13410 
13429 
13430 
13440 
13460 
13470 
13480 
13499 
13500 
13519 
13520 
13530 
13549 
13550 
13560 
13570 
13580 
13599 
13600 
13619 


DATA SHOW,EDIT,DISC DOCTOR 
DATA CHANGE, EDIT, TOOLKIT PLUS 
DATA SEEDISC,EDIT,DES 

DATA VIEW,WORD,VIEW 


DATA "":REM end record 


DEFPROCutils (key$,rom$) 
Q%=P%:R%=0% 

FOR opt=4 TO 7 STEP 3 

P%=0% :0%=R% 

[ OPT opt 

JMP cmdhandler 

.utilcmds 

EQUS key$ 

EQUW (keylist-1)M0D256*256+ (keylis 


DIV 256 


EQUS rom$ 
EQUW (romlist-1)MOD256* 256+ (romlis 


DIV 256 


EQUB Ø 

.keylist 

LDY #@ 

¿process 

LDX HØ:LDA #255:STA &A8 
.findsmall 

LDA &BØØ,X:CMP &BØØ,Y 
BEQ ngt:BCC ngt 

CMP &A8:BCS ngt 

STA &A8 Å 

.ngt 

INX:CPX #16:BNE findsmall 
LDA &A8:CMP #&FF:BNE skip 
LDA &BØØ,Y:STA &A8 
skip 

JSR key 

LDA &BØØ,Y:TAX 

enbyt 

CPX &A8:BEQ finikey 
LDA &BQl,X:JSR write 
INX:JMP nbyt 

e finikey 

JSR &FFE7 

INY:CPY #16:BNE process 
JMP finiutil 

write | 

CMP #32:BCS notsmall 
PHA 

LDA #ASC"|":JSR &FFE3 
PLA:ADC #64:JSR &FFE3 
RTS 

.notsmall 

CMP #127:BNE notdelete 
LDA $ASC"|":JSR &FFE3 
LDA 4ASC"?":JSR &FFE3 
RTS 

.notdelete 

BCS over128 

JSR &FFE3 

RTS 

„Over 128 


13620 
13639 
13649 
13659 
13660 
13679 
13680 
13690 
13709 
13719 
13729 
13730 
13749 
13759 
13769 
13779 
13789 


13799 


13809 
13818 
13830 
13848 
13879 
13899 
13909 
13919 
13929 
13930 
13948 
13950 
13969 
13979 
13988 
13998 
14000 
14010 
14020 
14030 
14040 
14059 
14060 


14070. 
14980 


14090 
14100 
14119 
14129 
14130 
14149 
141560 
14169 
14179 
14189 
14198 
14208 
14219 
14229 
14230 
142408 
14259 


46 


PHA:LDA #ASC"|":JSR &FFE3 
LDA #ASC"!I":JSR &FFE3 
PLA:AND #&7F:JMP write 
«Key 

LDX t0 

„next 

LDA ktitle,X:BEO finitit 
JSR &FFE3 

INX:JMP next 

efinitit 

CPY HIØ:BCC 1t9 

LDA $ASC"]":JSR &FFE3 

LDA #38:STA &A9 

JMP restout 

.1t9 

LDA #32:JSR &FFE3 

LDA #48:STA &A9 

erestout 

TYA:CLC:ADC &A9:JSR &FFE3 
RTS 

.ktitle 

EQUS " *KEY":EQUB Ø 

.hex EQUS "@8123456789ABCDEF" 
.romlist 

JSR printtitle 


LDY #&F 

enextrom 

LDA $32:JSR &FFE3 

LDA hex,Y:JSR &FFE3 
JSR spaces 

TYA:PHA ¡"save rom number 
LDA #6:STA &F6 

LDA 4&80:STA &F7 

JSR &FFB9 

AND #&DF:CMP #&82:BEQ servrom 
CMP #&C2:BEQ langrom 
CMP $840 Basic? 

BEQ langrom 

no rom 

PLA: TAY:JSR &FFE7 

JMP nexrom 

.Servrom 

LDA #ASC"S":JMP outputrom 
» Langrom 

LDA #ASC"L" 

eoutputrom 

JSR &FFE3 : JSR spaces 
LDA #8:STA &F6 

LDA #&8@:STA &F7 

+ romcmp 

PLA: TAY: PHA rom no 
JSR &FFB9:STA. &A8 

LDA H&AØ:STA &F7 
PLA : TAY : PHA 

JSR &FFB9:CMP £A8 

BNE roml6k 
INC &F6:BNE romcmp 


LDA: #32:JSR &FFE3 
. LDA #ASC™8":JSR &FFE3 
JMP kout 


14260 
14270 
14289 
14299 
14300 
14319 
14320 
14339 
14349 
14350 
14360 
14379 
14389 
143909 
14400 
14419 
14426 
14430 
14449 
14450 
14460 
144769 
14489 
14499 
14509 
14519 
14529 
14530 
14560 
14590 
3:JSR 
14600 
: EQUB 
14619 
14620 
14630 
14640 
14650 
14660 
14670 
14689 
1469Ø 


14700. 


14719 
14720 
14730 
14759 
14760 
14770 
14780 
20000 
20010 
20029 
20030 
20049 
20050 
20060 
20070 
20080 
20090 


.romló6k 

LDA HASC"1":JSR &FFE3 

LDA HASC"6":JSR &FFE3 

ekout 

LDA #ASC"K":JSR &FFE3 

JSR spaces 

PLA: TAY 

LDX +0 

.nextbytex 

TYA: PHA: TXA : PHA 

ADC #9:STA &F6 

LDA #&80:STA &F7 

JSR &FFB9:CMP #@:BEO finrttl 
CMP #&D:BEQ finrttl 

JSR &FFE3 

PLA: TAX: PLA: TAY 

INX 

JMP nextbytex 

ofinrttl 

JSR &FFE7 

PLA: TAX: PLA: TAY 

.nexrom 

DEY:CPY #&FF:BEQ dunromlist 
BEQ dunromlist 

JMP nextrom 

finigtil 

.dunromlist 

PLA: TAY:PLA:TAX:PLA:STA &A8 
LDA HØ:RTS 

.Spaces LDA #32:JSR &FFE3:JSR &FFE 
&FFE3 :RTS 

.rtitle EQUS "No. Type Size Title" 
Ø 

.printtitle 

LDX #@ 

.loopr 

LDA rtitle,X 

BEQ finrt 

JSR &FFE3 

INX 

JMP loopr 

efinrt 

JSR &FFE7:JSR &FFE7 

RTS 

.cmdhandler 

]:NEXT opt 
PROCcommandhandler (uti lcmds) 
PROCcommandhelp ("UTILS",utilcmds) 
ENDPROC 


DEFPROCredirect (dataloc,help$) 
target-&380:command-&394 
Q%=P%:R%=0% 

FOR opt=4 TO 7 STEP 3 
P$-0$:0$-R$ 

[ OPT opt 

JMP cmdhandler 

.newcmds 

EQUS STRINGS (128 ,CHRSØ) 

EQUS STRINGS (128 ,CHRSØ) 


.oldptrs 


EQUS STRINGS (128,CHR$0) 


.oldomds 

EQUS: STRINGS (128 ,CHRSØ) 
EQUS STRINGS (128,CHRS@) - 
.romptrs 

EQUS STRINGS (128 ,CHRS@) 
.romnames 


| EQUS STRINGS (128 ,CHRS@) 


EQUS STRINGS (128 ,CHRS@) 
«redirect ` 

TYA:ASL A: TAY 

LDA oldptrs,Y:STA &A9 
LDA oldptrs+1,Y:STA &AA 
LDA romptrs,Y:STA &AB 
LDA romptrs+1,Y:STA &AC 
LDX #&FF:LDY $9 

a Loop] INX 

LDA (&A9),Y:BEQ endcopy 
STA command,X 

INY 

JMP loopl 

.endcopy 
TXA:PHA:TSX:LDY &102,X 
„ 100p2 

LDA (&F2) ,Y 

CMP #32:BEQ end2 

CMP #13:BEQ end2 
INY:JMP loop2 

.end2 

PLA: TAX 

.100p3 

LDA (&F2) ,Y 

STA command , X 

CMP #13 

BEQ end3 

INX:INY:JMP loop3 

.end3 


| LDA #command MOD 256:STA &F2 


LDA #command DIV 256:STA &F3 
LDA #&8@:STA &F7 

LDA $4$&10:STA &AE 

.nextrom 

LDA #9:STA &F6 

LDA #@:STA &AD 


| DEC &AE 


BMI notfound 


Ø .nextch 


LDY &AD 

LDA (&AB),Y 

BEQ found 

LDY &AE:JSR &FFB9 
LDY &AD:CMP (&AB),Y 


| BNE nextrom 


INC &AD:INC &F6 

JMP nextch 

.notfound 

LDY £0 

.loop4 

LDA (&AB),Y:BEO end4 


. 20700 


20710 
20720 
20730 
20740 
20750 
20760 
20770 
20780 


20790 


20890 
20810 
20820 
20830 
20840 
20850 
20860 
20870 
20880 
20890 
20900 
20919 
20920 


. 20930 


20940 
20950 
20960 
20970 
20980 
20999 
21000 
21010 
21020 
21030 
21040 


21050 


21060 
21070 
210808 


21090 
21100 


21118 
21120 
21130 
21149 
21150 


21168 


21170 
21189 
21198 
21200 
21218 
21228 


. 21230 


21249 
21250 


21269. 


21279 
21289 


JSR &FFE3:INY 


JMP loop4 


.end4 

LDX £0 

.loop5 

LDA norom,X 

BEQ end5 

JSR &FFE3 

INX 

JMP loop5 

.end5 

PLA: TAY : PLA: TAX 

PLA:STA &A8:LDA HØ:RTS 
.norom EQUS " not found" 
EQUW 13 

. found 

LDY #19 

.loop2 LDA code,Y:STA target,Y 
DEY:BPL loop2 

LDX &AE:LDY #Ø 

JSR target 

PLA: TAY: PLA: TAX: PLA: STA. &A8 
LDA #@:RTS 

code 

LDA &F4:PHA 

STX £F4:STX &FE3Ø 

LDA +4: JSR &8ØØ3 

PLA:STA £F4:STA &FE39 

RTS ` 

.cmdhandler 

] :NEXT opt 
PROCcommandhandler (newcmds) ` 
PROCcommandhelp (helpS , newcmds ) 
RESTORE dataloc 

nz 

oldzoldcmds-P$-O$ 
rom=romnames-P%+0% 
new=newcmds-P%+0% 
oldptrs=o0ldptrs-P%+0% 
romptrs=romptrs-P%+0% 
REPEAT 

READ newS 

IF newsS="" THEN 21279 
Snew=newS : new=new+LENnewS 
?new= (redirect-1) DIV 256 
new?l-(redirect-1) MOD 256 
new=new+2 

READ oldS,romS 

oldptrs? (2*n)-old MOD 256 
oldptrs?(2*n+1)=old DIV 256 
Sold=01d$:01d=o01d+LENold$ 
?01d=8:01d=01d+1 
romptrs?(2*n)=rom MOD 256 


romptrs? (2*n+1)=rom DIV 256 


Srom=romS : rom=rom+LENrom$ 
?rom=8 : rom=rom+1 

n=n+1 

UNTIL newS="" 

ENDPROC 
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Delta is much more than just 
se. i fact it ners ever ryt hing 


j ility o. of se serious database soft- 
re for the Beeb? Geoff Bains 
ports. 


Product : System Delta 
Supplier : Minerva Systems 
: 69, Sidwell Street, 
: Exeter, Devon. 
Tel. 0392-37756 
Price : £64.95 (ROM + Card Index) 


: £19.95 (Reference manual) 


There are many database management 
programs around for the BBC micro. 
However , for an application requiring 


anything more than a simple card index, 
writing your own package is the only real 
answer. System Delta allows even the 
novice programmer to do just that. 

System Delta comes on a 16K ROM - 
providing over 150 * commands - a full 
Card Index example program and a manual. 
The commands look after all the difficult 
aspects of writing your own database 
software - file handling, setting up, 
editing, and searching records. 


A program written with System Delta 
commands can cope with databases of 8169 
records, each of 38000 characters. Each 
record can contain up to 255 fields and 
each field 200 characters. The whole side 
of a disc is the only limitation in 
overall size of a file. Most importantly, 
System Delta can cope with five files at 
once so truly relational databases can be 
set up and interrogated. 


System Delta is meant for a mode 7 


display. Large records are viewed or 
edited by scrolling them in four 
directions. This is all automatic and 


requires very little programming from the 
user. The command *SDscroll, for example, 
will display a specified record and 
initiate the scrolling display. 


To produce a simple browse facility on 
an existing file (called 'DATA') complete 
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with full scrolling across each card using 
the cursor keys, selection of the next or 


previous card using the 'N' and 'P' keys 
and 'F' to finish, this is all you need: 


10 MODE7:*SDRESET 

20 *SDOPEN DATA 

30 *SDGREC 1 

40 REPEAT: *SDSCROLL 

50 IF G%=ASC"N" THEN *SDDIR 1 
60 IF G$-ASC"P" THEN *SDDIR 6 
70 IF G3<>ASC"F" THEN *SDNEXT 
80 UNTIL G%=ASC"F": *SDCLOSE 


A short program like this does not 
take long to write, nor does it take up 
much of the Beeb's valuable memory. 
However, the effect is truly professional. 


The System Delta commands are divided 
into three groups. The first consists of 
named commands (all prefixed with 'SD'). 
These handle the file orientated aspects 
of programming. *SDopen, for example, will 
open a file. *SDedfield will edit a field. 


The second group of commands are just 
numbered (again prefixed with 'SD'). These 
cover many useful features to help with 
creating a user interface to the file- 
handling operations. For example, *SDØ6 
issues a 'Press a key' prompt, flushes the 
keyboard buffer and returns the ASCII code 
of the next key pressed in G%. *SD47 
executes a * command. 


The final group of commands are all 
*FX163,16 commands  - ranging from 
*FX163,16,0 to *FX163,16,61. Acorn has 
specially allotted *FX163,16 to Minerva. 


These commands are the really low level 
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commands that won't be 
most users. 
converting an area of memory to upper case 
ASCII, and flushing the keyboard. 


required much by 


Most of the System Delta commands 
require parameters to specify the record, 
field, or whatever the command is to act 
on. Although the System Delta commands are 
all * commands they use Basic variables. 
Indeed, many System Delta commands return 
values into Basic resident (integer) 
variables for use by the programmer. 


However, even this can be configured 
to your own preferences. If you are 
particularly fond of using, say, G% for 
some purpose of your own then the last key 
pressed can be redirected from G% to the 
variable key% simply by issuing the 
command *SDvar 3,key$. 


The only aspect of System Delta that 
disappoints is the manual. The standard 
manual accompanying System Delta is mainly 
concerned with using the Card Index 
program. To create your own software (and 
this is really the whole idea) you'll need 
to fork out another £20 for the reference 
manual that explains all the commands. 
Even that leaves much to be desired. It is 
produced entirely from dot matrix printout 
which makes it very tiring to read. 


This manual is extremely detailed - it 
goes right down to the level of the format 
of the data file - and there is not much 
you don't know about System Delta after 
wading through it. However, wade you must. 
It is clear that the manual was written by 
someone at Minerva very knowledgeable 
about the package with little thought for 
the struggling beginner. This is a shame 
as System Delta does enable a comparative 
programming beginner to produce excellent 
quality software, if only he can get to 
grips with Minerva's software. 


All of which leads to the Card Index 
program supplied with the System Delta 
package. This is an application program 
written entirely in Basic using the System 
Delta commands. It does not exploit the 
full capabilities of System Delta - it 
only uses one file at a time - but it does 
show the kind of speed, quality and 
professionalism that can be achieved. 


The Card 
series of 


Index is menu-driven with a 
interconnected 


menus , each 


st/S 


They cover such features as. 


controlling a different aspect of the 
database management - creating a file, 
editing, browsing, searching, etc. 


The record card format is created 
using the ROM's built-in scrolling editor. 
Once the fields have been specified, their 
position and length is determined simply 
by moving around the card and typing in as 
many 'Q's as are needed. Entering the data 
is also easy. Each card can be ‘filled in' 
either from scratch, entering the contents 
of each field, or using a default card 
that is altered as required. 


There is an excellent editing 
for entering data. This allows 
editing of a line as it is typed in. 
Fields on the card can even be assigned 
values dependent on other fields, even 
from other records. The age of each person 
in a personnel file could, for example, be 
displayed on each card with only the date 
of birth entered. 


system 
full 


Once some records are entered into the 
file it can be browsed through or specific 
records displayed. The real power of the 
Card Index program comes when you want to 
search a file. Up to eight subsets of a 
file are created using equations to 
specify the rules of the selection. These 
equations can select records according to 
single or multiple criteria from the whole 
file, another subset, or from a 
combination of either. The access of the 
file is very fast. Minerva claims that any 
record in any length of file can be found 
in under three seconds. 


The subset can then be printed out, 
either in full or just the fields that you 
require. The format of the printout can be 
different from that used for the record 
cards, indeed several printout formats can 
be used selectively. 


The power of System Delta is clearly 
shown by this program. Indeed, Minerva is 
using System Delta to write its own 
specialized packages for sale. A full 
blown video rental control package has 
been written and an accounts package is 
under way. However, a glance through the 
Card Index listing reveals that it is not 
a package for the squeamish. Using System 
Delta is hard work but it is ultimately 
worth the trouble. System Delta has 
brought forward the art of database 
handling on the Beeb by a gigantic leap. 
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This month, Surac explains the use of bitmaps for speedy 


access to disc data. 


A little while ago, I 
looked at various aspects 
of handling data files 
and saw that one limit- 
ation of the  Beeb's 
memory is that any 
sensibly sized file must 
be held on disc. This, in 
turn, means that whenever 
a record is needed, it 
must be read from disc. 


Now, reading data 
from disc is time- 
consuming. The process 


becomes particularly slow 
when we have to search 
files for records which 
satisfy specific cond- 
itions. Often, we have to 
look through the whole 
file to find what we 
want. There is a way 
around this problem, at 
least for a specific type 
of data. When an item of 
data can exist in just 
two states (e.g. Male/ 
Female, Married/Single), 
we can hold a separate 
set of flags which code 
the status of that data 
item in every record. 


Since each data item 
can only have 2 values, 


it is a "Boolean Var- 
iable" and can be coded 
as a single bit. For 
example, a bit set to "1" 
might mean that the 
corresponding record is 
for a man, while "g" 
means a woman. The coding 
is very compact - for 


instance, just 125 bytes 
can hold data about a 
given field in no fewer 
that 1000 records. 
Because bits give data 
about data, the technique 
is called "bit-mapping". 


"So what?", you say. 
Because the bit maps hold 
data in such a compact 


form, they can be held in main memory. 
Hence, they can be searched far more 
quickly than disc-based files. We can 
identify, say, the record numbers of all 
married women, and then read only the data 
we need. There is no need to check and 
discard perhaps many hundreds of records 
to find just a handful. 


A program using bit maps must 
memory for the maps it needs: 


reserve 


100 MapSize%=(NoRecords% DIV 8)+1 
110 DIM SMap% MapSize%, 
MMap% MapSize% 


These two lines set up two byte-arrays, 
SMap% (Male/Female) and MMap% 
(Married/Single), each with at least 
NoRecords$ bits. The "+1" in line 100 


takes care of the case where NoRecords% is 
not an exact multiple of eight. In this 
example, I'm using two bit maps - you 
would, of course, create as many as you 
needed, with whatever names you wanted. 


Having reserved memory for the maps, 
we must either set them up for a new or 
drastically altered system, or read them 
from disc into memory. To create them, 
check the relevant fields of every record, 
and set the bits accordingly as in 
PROCSetMaps. 


| Procedure SetMaps | 

| 5000 DEF PROCSetMaps 

| 5010 LOCAL byte$,I$,mask$ 

| 5020 FOR I$-] TO MapSize$: 

| SMap2?I2$-0:MMap2?I2-0: 

| NEXT 

| 5030 byte3=Ø 

| 5040 mask3=1 

| 5059 FOR I%=1 TO NoRecords$ 

| 5060 REM *** Get next record *** 

| 5070 IF SexS="M" THEN 

| SMap%?byte%=SMap3?byte% 
OR mask% 

IF Marr$="Y" THEN 

MMap%?byte%=MMap%?byte% 

OR mask% 


| 5080 


| 5099 
5100 


mask%=mask3* 2 
IF mask%>128 THEN mask%=1: 
byte%=byte%+1 


| 5110 NEXT 
| 5120 ENDPROC 


Zero the maps first (line 5020). The 
main work is then done by lines 5050-5114. 
Once the main data file has been opened 
for reading (OPENUP or OPENIN), the 
procedure reads each record in turn (line 
5060). Then, depending on the sex and 
married state of the person in the record, 
it sets or doesn't set the associated bit 
in the 2 maps. The value of "mask$" cycles 
through ]1..2..4..8...128..1.. to pick up 
each bit of a byte. The value of "bytes" 
goes up by one for each cycle of mask$ to 
choose the relevant byte. Lines 5070 and 
5080 control each map - you need similar 
lines for every map in use. 


Creating the maps is slow, but you 
don't have to do it very often. Usually, 
you will set the bit(s) for one record at 
4 time with a special procedure such as 
PROCSetBit. Note that this assumes that 
the records are numbered from 1 to 
NoRecords%. 


| Procedure SetBit 

| 10000 DEF PROCSetBit (Map$ , Recs ,Flag%) 
| 19010 LOCAL byte%,mask% 

| 19929 mask2-2^((Rec$-1) MOD 8) 

| 10030 byte$-(Rec$-1) DIV 8 

| 19040 IF Flag’ THEN | 
| Map%?byte%= (Maps?bytes OR mask?) | 
ELSE Map$?byte$- E 
| (Map2?byte$ AND NOT mask$) 
| 10050 ENDPROC —— 


set the bit 
corresponding to any record in any map to 


This procedure will 
either 1 or Ø (TRUE or FALSE). To set our 


example maps for record number "n": 


1000 PROCSetBit (SMap£,n,Sex$-"M") 
1910 PROCSetBit (MMap$,n,MarrS$-" Y") 


In a similar way, we can search for 
specific records. First, a general purpose 
procedure to find and process all records 
satisfying a given condition: 


| 6000 DEF PROCFindRecs (Cond$,Action$) 
| 6010 LOCAL byte$,dy$,I$,mask$ 

| 6020 byte$-0 | 

| 6030 mask%=1 

| 6040 FOR I$-1 TO NoRecords% 


| 6050 IF EVAL(Cond$) AND masks THEN 

| dy$-EVAL (Actions) 

|6060 mask%=mask%*2 

|6070 IF mask%>128 THEN mask$-|: 

a byte%=byte%+1 
16088 NEXT 


As in PROCSetBit, it goes through the 

representing every record. However, 
being general purpose, it does not define 
the search conditions or what to do when 


bits 


it finds suitable records. It expects 
these to be supplied as strings. 


"Conds" defines which maps to check, 
and how (e.g. AND or OR) they are to be 
combined. Although the PROC is clever 
enough to mask the bits in each byte, you 
must show it how to use byte% to select 
the appropriate byte in the map(s) as it 
cycles through them. 


During the search, whenever the 
procedure identifies a suitable record, it 
EVALuates "Action$" and assigns its value 
to the dummy dy$ (line 6059). This 
provides a way to pre-program different 


record-handlers for different searches, 
and to pass the appropriate one to 
PROCFindRecs. Define the handiers as 


PuNctions, with the exit point returning a 
dummy value (e.g. =Ø): 


20000 
20010 
20020 
20030 
20040 


DEF FNHandlel 

REM *** Read Record I$ *** 

REM *** Process it *** 

REM *** Re-write to file *** 
=Ø:REM *** Dummy value for exit 


It's really a procedure, but they can't be 
EVALuated. 


Suppose you wished to search for all 
married women, and read and process each 
such record with FNHandlel. You would get 
into the procedure with: 


1100 PROCFindRecs ("NOT SMap$?byte$ AND 
MMap$?byte$" , "FNHandlel") 


Notice how the search is defined. The 
bits in SArr$ are SET for men, so we need 
"NOT set" to find women; MArr$ bits are 
set for married. The "?byte$" provides the 
procedure with a way of searching through 
the maps. 


That's a way of searching all the 
records. To check a particular record: 


11000 DEF FNReadBit (Map%, Recs) 
11010 LOCAL byte%,mask% 

11028 mask%=2* ((Rec3-1) MOD 8) 
11030 byte%=(Rec%-1) DIV 8 

11040 -((Map$?byte$ AND mask3) >Ø) 


—>01 


DISC DRIVES NOT WHAT THEY SEEM 


In the past year I have 
purchased or had replaced 
four disc drives all under 
the same very well known 
brand name, each of which 
has turned out to be of a 
different make internally. 


The first point is the 
common practice of advert- 
ising these drives purely 
under a supplier's trade 
name, giving the impression 
that they are made by the 
supplier, instead of in the 
Far East which is the case. 
This no doubt enables the 
supplier to switch the 
internal works to whatever 
is cheapest or most readily 
available. 


Different drive designs 
have different specificat- 
ions which need to be 
matched to the internal 
keyboard links 3 & 4. The 
fact is that some drives 
are faster, and therefore 
better than others. 


There is a need for more 
honesty and help for 
purchasers of disc drives. 
Suppliers should state the 
name of the drive as well 
as their own name. There 
should also be be some 
coding, using the links 3 & 
4, to enable one to know 
how fast the drive will be, 
and whether it will match 


one's existing drive when 
adding a second. 
E.A.Allchin 


LIGHT ON THE SHADOWS = 
Can you please explain 
the meanings of, and 


differences between, side- 
ways RAM, sideways ROM and 
shadow RAM? 

G.D.Alliban 


August/September 1986 


terms both GET 
and GETS "get" 
a character 
from the key- 
board - or more 
strictly speak- 
ing from the 
keyboard  buff- 
er: a distinct- 
ion which we 
will deal with 
in a moment. 
GETS returns an actual character in the 
form of a string of length one; while GET 
returns a number corresponding to the 
ASCII value of the key pressed. Thus for 
example, if the key pressed is "L", GETS 
would return "L", and GET would give 76, 
the ASCII value of "L". Both the User 
Guide and our Giant Reference Card contain 
ASCII tables for reference. 


Getting it 
Right 


You can test out these two functions 
very easily by just typing: 

PRINT GET 

or PRINT GETS 
If you do this you will 
appear to hang after Return is pressed 
until you press any other key. You will 
then see either the ASCII value or the 
actual letter of the key pressed, 
displayed on the screen. In normal use, 
these two functions are read into a 
variable - a numeric variable in the case 
of GET, and a string variable with GETS. 
Thus a key could be read into the variable 
A with: 

A=GET 
or into AS with: 

AS=GETS 
The surrounding program can then test A or 
AS for various conditions and respond 
accordingly. 


see the machine 


Perhaps the most obvious use for the 
GET and GETS functions is to handle the 


input of just a single character from the 
keyboard, such as you might need in the 
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David Graham explores 
the use of the GET func- the 


tion, a most useful 


case of a Yes / No 
question, or if a program 
was required to wait until 
space bar was pressed 
for example. GET scores 
heavily over the INPUT 
statement in such cases, 


weapon when dealing since it requires no 
pressing of Return to 
with keyboard input. enter the answer, so that 
a response can be given 
In simple with a single key-press. 


In fact GET and GETS are also often 
used for much more complex input when the 
programmer needs keyboard input to be 
handled ina different way from the fixed 
format of the INPUT statement. For 
example, you might require an input string 
to be numerical only; but with the INPUT 
statement, the user could enter a whole 
string of letters, and the program would 
not know about it until Return was pressed 
at the end of the string. But using GET or 
GETS the programmer can check each key as 
it is pressed to see whether it 
corresponds to what his program requires. 


Of course, the programmer has to do a 
little more work with this approach, 
creating a string out of individual 


characters, handling incorrect input etc. 


GETTING THE SPACE BAR 


For the moment we will look at the two 
examples mentioned above, taking ` the 
simplest of these first. The object of the 
exercise is to wait for the space bar to 
be pressed, so that the user may read a 
screen of text, or whatever, and call up 


the next part of the program when he is 


ready. The routine is simple: 


100 REM PROG 1: GET THE SPACE BAR 

11@ PRINT"Press Space Bar to Continue" 
120 REPEAT: UNTIL GET=32 

138 PRINT"Program now continues" 


Line 128 just keeps looking at any key 
pressed until a key with ASCII value 32 
(i.e. the space bar) is returned. The 
program then moves on. We could equally 
well have used GETS. Line 120 would then 
be: 
120 REPEAT: UNTIL GETS=" " 

Here the line checks to see if the 


character pressed matches the one in 
quotes: a space in this case. 
Alternatively, if you replace line 120 as 
follows: 

120 A=GET 


Then the program will wait until ANY key 
is pressed. 


FLUSHING THE BUFFER 

This routine lacks one refinement 
which is quite important, but which is too 
often overlooked in professional software: 
flushing the buffer. When you press any 
key on the BBC micro, a code for the key 
is entered into what is called the 
keyboard buffer. This is an area of memory 
which can accommodate a whole series of 
key codes, until the computer has time, or 
is directed, to deal with them. 


The GET and GETS functions, and the 
INPUT statement all get their key-pressed 
information from the keyboard buffer, and 
not directly from the keyboard itself. 
Because of this it is important to "flush" 
the keyboard buffer of all characters 
previously placed in it before using 
INPUT, GET or GETS. This is done with an 
FX call (*FX15,1). We can see this in 
action in the next example. 


DETECTING YES / NO ANSWERS 

One of the most commonly used computer 
responses is of the Yes / No type, and the 
GET or GETS function can handle this with 
ease, as can be seen from the following 
example: 


109 REM PROG 2: Yes / No Answer 
110 REPEAT 

120 PROCgame 

1309 PROCanswer 

140 UNTIL reply$<>"Y" 

150 PRINT'"Bye for now" 

160 END 

170 : 

180 DEFPROCgame 

198 PRINT' Hkkkkkkkkkikkkkkil 


200 PRINT "***THE GAME***" 
210 PRINT BekKKkkkkkkkkkkki 
22Ø ENDPROC 

23Ø : | 

240 DEFPROCanswer 

250 PRINT 

260 PRINT"Another game ?" 
270 *FX15,1 

280 replyS=GETS 

290 ENDPROC 


The main part of this program consists of 
a REPEAT loop in lines 110 - 140 which 
repeatedly calls the two procedures 
PROCgame (which would normally contain a 
real game), and PROCanswer. This latter 
uses GETS to check whether the user wants 


to play the game again or not. The reply 
to the question is a single key-press, and 
this is put into the string variable 
reply$. The main program loop checks this, 
and exits if the user presses any key 
other than "Y". 


RESPONDING TO MENUS 

Another frequently used application of 
the GET function is in multiple choice 
menus. Here a single key-press is again 
used, but this time there may be quite a 
considerable number of “correct” 
responses, each requiring a different 
action. Again we can use either GET or 
GETS, and really there is little to choose 
between them. Program 3 gives an example 
of this kind of menu. 


100 REM PROG 3: GENERAL PURPOSE MENU 

110 REPEAT 

120 MODE7 

130 PROCdisplay 

140 PROCchoice 

150 UNTIL A=88 

160 PRINT:END 

170 : 

180 DEFPROCdisplay 

199 PRINTTAB(10,2)CHR$134;CHR$141; 7 "TE 
ST MENU" 

200 PRINTTAB (10, 3) CHRS134;CHRS141;;"TE 
ST MENU" 

210 PRINTTAB (5,6)CHRS131;"A. First Cho 
ice" 

220 PRINTTAB (5,8)CHR$131;"B. Second Ch 
oice" 

230 PRINTTAB (5,19) CHRS131;"C. Third Ch 
oice" 

240 PRINTTAB (5,14) CHR$131 ; "* 
mand" 

250 PRINTTAB (5,16) CHR$131;"X. Exit" 

260 ENDPROC 

270 1 

280 DEFPROCchoice 

290 REPEAT 

300 PRINTTAB(0,20)"Please enter your C 
hoice "; 

310 *EX15,1 

320 A-GET AND &DF: IF A=1Ø THEN A=42 

330 UNTIL A-42 OR A=88 OR A»64 AND A«6 


8 
340 IF A=42 THEN PROCstarcommand 


350 IF A-65 THEN PROCfirst 


360 IF A=66 THEN PROCsecond 

370 IF A=67 THEN PROCthird 

380 ENDPROC 

398 : 

400 DEFPROCstarcommand 

418 INPUT'"*"ASs PRINT 

420 S&AÜO-AS:X$-0:Y$-&A: X-USR(&FFFE7) 


Star Com 
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430 PROCspace 

440 ENDPROC 

450 : 

460 DEFPROCspace 

470 PRINT'"Press spacebar to continue 


480 REPEAT:UNTIL GET=32 

490 ENDPROC 

500 s 

510 DEFPROCfirst 

520 CLS:PRINT'"First choice" 
530 PROCspace 

540 ENDPROC 

550 : 

56Ø DEFPROCsecond 

57Ø CLS:PRINT'"Second choice" 
58Ø PROCspace 

59Ø ENDPROC 

6ØØ : 

61Ø DEFPROCthird 

62Ø CLS:PRINT'"Third choice" 
63Ø PROCspace 

648 ENDPROC 


The program is organised around a main 
REPEAT loop on lines 118 - 150. This in 
turn calls just two procedures. 
PROCdisplay prints the menu options on the 
screen, and PROCchoice handles the 
keyboard input. In the current example 
there are three main choices, each calling 
a dummy procedure. In addition, the menu 
has an exit option and will also handle 
star commands. 


PROCchoice is constructed around the 
GET function on line 320. This uses a 
programming trick to ensure that it 
responds to key-presses irrespective of 
case. If you doubt the wisdom of this, try 
entering: 

PRINT CHRS(GET AND &DF) 
directly from the keyboard. It will return 
upper case letters regardless of whether 
you enter them in upper or lower case. 
Line 328 uses the same principle. 


The test for the key-press in 
PROCchoice is performed within a REPEAT 
loop (lines 290 - 330). An exit occurs 
only when one of the designated keys (A, 
B, C, * or X) is pressed. Lines 340 - 370 
then check which of these five selections 
was made, and react accordingly. If * is 
chosen (ASCII 42), PROCstarcommand is 
called. This short procedure allows any 
Star command (e.g. *CAT etc) to be issued 
from the menu, and because it avoids the 
use of OSCLI, it will work equally well on 
BASIC I and II. Once the star command has 
been performed, a press of the space bar 
(PROCspace) takes you back to the menu. 
You should bear in mind when executing 
Star commands from the menu that some, 
like *COPY, will destroy the menu program, 
since they overwrite user memory. 


Selecting A, B, or C from the menu causes 


the program to enter one of three dummy 


procedures at lines 510, 560 or 619. 
These would normally form the essence of 
the whole program. You may have noticed 
that the main testing loop which checks to 
see which key was pressed, appears to 
ignore the "X" option (A=88). In fact if 
A-88, this value is returned to the main 
loop where it causes an exit on line 159. 


MODIFYING THE MENU 


The menu presented here should be 
fairly easy to tailor to your own 
requirements. It would be a simple matter 
to include many more different items for 
Selection, by increasing the value 68 in 
line 338, and by including tests for the 
new values of A just after line 370. A 
further useful enhancement would be the 
addition of a proper error handling 
routine. But this is beyond the scope of 
the present article. 


In the next issue, First Course will be 
exploring the related input function, 


INKEY, in all its various guises. ES] 


BEEBUG FILER GRAPH OPTION (BEEBUG Vol.5 No.2) 

The magazine/cassette disc for Vol.5 No.2 contains 
program that prevents compatibility with the original Filer 
assigned to FDR in line 1040 from 512 to 256. 


disc 
in the magazine. 
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an error in the Filer Graphics 
program. Change the value 
Later copies of this magazine cassette/ 


(from July onwards) contain a corrected version. The program is listed correctly 


E 
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guide the Posidroid robot 

full throught the three- 

dim cadena labyrinth, exterminate 

the mutants, and save the world? 

Jonathan Temple reveals his latest 

game, a thought-provoking 3D gra- 
phical adventure. 


Long, long ago, in a distant century, 
the people of Earth built a huge nuclear 


power station. As the years passed, the 
station functioned reasonably 
successfully, until a new, better fuel 


source was discovered and the station was 
closed down. 


This new fuel was used for many years, 
but eventually supplies began to run out 


and an alternative had to be sought. It 
was decided to re-open the nuclear 
station, but there was a 


problem...scientists scanning the station 
discovered that radiation had leaked and 
had spread throughout one of the main 
buildings. Mutant creatures had developed, 
and the area was unsafe for any human 
being to venture into. 


Some way of exterminating the 
creatures was needed - the radiation could 


be cleared later by the scientists. 
Temporarily at a loss, the scientists 
turned in desperation to old records of 


the station made at the time of its 
closure. They discovered that there was a 
remote-control  'Posi' droid (especially 
designed for working in high levels of 


radiation) lying dormant in one of the 
rooms. The droid was re-activated and a 
controller chosen to guide it through the 


building. After much deliberation it was 
announced that YOU were going to be 
assigned this task... 


The droid is controlled using the 
'At,'z*,'** and '?' keys on your console. 
Objects seen in any room can be picked up 
by simply guiding the droid over them, but 
the droid can only hold one object at a 
time. Any object currently held will be 


POSEDROR — — 


AGE Rete. ka 


swapped for the one picked up, the 
currently-held object being displayed at 
the bottom of your monitor. The 'Return' 
key should be used to fire - that is, only 
if you do well enough to find the object 
necessary! 


Unfortunately the droid is an old one, 
and over the years, its energy reserves 
have gradually diminished. Energy is 
depleted by moving, colliding with the 
monsters inhabiting the station or by 
teleporting using the several teleport 
pads which are spread throughout ` the 
building; if the droid runs out of energy 
the mission must be aborted. However, to 
help you, the droid's energy can be at 
least partly recharged by pressing the 'R' 
key - again, only if you're carrying the 
right equipment! 


In addition you can find out how well 
you're doing by pressing the 'S' key, 
which will show you in percentage form how 
much of the game you have completed. 
Another useful key is 'P' which will pause 
the game; whilst the game is paused 'S' 
and 'Q' can be used to turn the sound on 
and off respectively. 'C' will allow the 
game to be continued. 


This type of game is always more fun 
if you explore and discover things for 
yourself, so I have tried to give you very 
few hints. However, remember that for the 
game to be successfully completed making a 
map is almost essential! 


The program should be fairly 
straightforward to enter, but remember the 
cardinal rule of typing in games and MAKE 
SURE that you save the program before 
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attempting to run and debug it. This must 
be done because of the indirection 
operations used in the program, as there 
is a chance that you may find that the 
program is corrupted if you make any 
typing errors. 


Also, when entering the program do not 
type in extra spaces or the ones after the 
line numbers, or you may find yourself 
suffering from the dreaded 'No room' 
error. If this does happen during the 
course of playing the game, then try 
missing out unnecessary lines such as 
those containing only colons, or the REM 
statements in lines 10-60. 


Model B disc users, or other people 
using a machine with PAGE set any higher 
than &EØØ (without the use of shadow RAM), 
will need to include a suitable 
downloading routine as given below:- 


1 IF PA.<&E@1 THEN 19 

2 *K.0 *T. |MF.A%=ØTO(TOP-PA.)S.4 
:AS!8E00=AS!PA. :N. [MPA.=8E00 |M 
O. |MDEL.1,4|MRUN|M 

3 *FX 138,0,128 

4 END 


routine be 

save the program 
program could be 
instance perhaps by 


If you are using this 
especially careful to 
first, as again your 
corrupted, for 


pressing Break. 


10 REM PROGRAM POSIDROID 

20 REM VERSION B1.8 

30 REM AUTHOR J.Temple 

40 REM BEEBUG AUG/SEPT 1986 

50 REM PROGRAM SUBJECT TO COPYRIGHT 


100 MODE 2:0N ERROR GOTO 3890 
118 PROCinit:PROCchars 

120 PROCenvs:PROCtitle 

130 REPEAT:MODE 2 

140 PROCsetvars:PROCscreen 
150 REPEAT:PROCdroid 

160 IF F$ PROCfiring 

170 IF A%>-1 PROCmonster 

188 UNTIL E%<5 OR C%=16 

198 IFC%=16 PROCcongrats ELSE PROCend 
200 UNTIL FALSE 

2108 : 
1000 DEFPROCdroid 

1010 V3=X3 :W3=Y% :U%=Z% 
IFINKEY-56 PROCpause 


1030 IFINKEY-52 IFH$ IFH%<5 PROCinf ("Re 
charging..."):FOR N%=1 TO15@:SOUND 3,3,2 
ØØ , I : PROCenergy (-1ØØ) : NEXT: N% (H3,1)=64:H 
$=Ø: PROCheld 

1040 IFINKEY-74 IFH%=1] IFF$-0 J%=X%:K% 
=Y%: SOUND 17,1,2ØØ,3:0%=(2%=237) -(Z%=226 
) :R3=(Z%=239) - (Z$2224) :F3=1 ¿PROCplot (JZ, 

% 228) 

1050 IFINKEY-82 PROCinf ("You have compl 
eted#"+STRS (FNcalc)+"% of the game") :PRO 
Cheld 

1060 IFINKEY-66 Z3=237:1FU%=237 X%=X3-1 

1878 IFINKEY-98 Z2%=226:IFU%=226 X%=X%+1 

1080 IFINKEY-73 Z2%=239:1FU%=239 Y%=Y%-1 

1090 IFINKEY-105 Z%=224:IFU%=224 Y%=Y%+ 
1 

1100 IF X%<Ø OR X3>8 OR Y%<Ø OR Y%>8 PR 
OCedges 

1110 M$zO:IF X%<>V% OR Y2«»W$ M%=] 


1120 IF M% OR Z%<>U% PROCdr (V%,W%,U%) :P 
ROCdr (X%,Y%,Z%) : IF M% PROCenergy (5) :IF X 
$-] IF Y$-7 IF T$(L%,Ø)=P% PROCteleport 

1130 IFS% IFM% IFX%=4 IFY%=4 PROCcheck 

1140 ENDPROC 

115Ø ; 

116Ø DEFPROCpause 

117Ø PROCinf ("Paused") 

118Ø REPEAT A=GET AND &DF 

119Ø IFA=81 PROCinf ("Sound off") :*FX210 

1 
y 

1200 IFA=83 PROCinf ("Sound on") :*FX21Ø 

1210 UNTIL A=67 OR A=7Ø 

1220 IF A-70 E%=@ ELSE PROCheld 

1230 ENDPROC 

1249 : 

1250 DEFPROCfiring 

1260 PROCplot (J%,K%, 228) 

1270 IFJ$-A$ IFK%=B% GOTO13ØØ 

1280 J%=JIS+0% : K3=K3+R3 

1290 IFJ$«0 OR K%<@ OR J%>8 OR K2»8 FS= 
Ø : ENDPROC 


S9 t/: 


1300 IFJ$-A$ IFK3=B% PROCplot (A%,B%,236 
) ¿SOUND 16,-12,6,2:A%=-1:0%=C%+1 P30: G% 
?P$-0:ENDPROC 

1318 PROCplot (J$,K$,228) 

1320 ENDPROC 

1339 : 

1340 DEFPROCedges 

1350 X%=V%:Y%=W% 

1360 IFX3=Ø IFY%=4 IF(d% AND2) PROCnew ( 
-1) : ENDPROC 

1370 IFX%=8 IFY%=4 IF(A% ANDI) PROCnew ( 
1) ¿ ENDPROC 

1380 IFY$-0 IFX%=4 IF(d$ AND8) PROCnew ( 
—4) : ENDPROC 

1399 1FY%=8 IFX%=4 IF(d$ AND4) PROCnew ( 
4) : ENDPROC 

1400 ZS=U% 

1410 ENDPROC 

1420 $ 

1430 DEFPROCnew (N%) 

1449 IF N%=1 IF T$ PROCdoor:ENDPROC 

1450 IFABS (N%)<4 X%=8-X% ELSE Y$-8-Y$ 

1460 P%=P%+N%: PROCscreen 

1470 ENDPROC 

1480 : 

1494 DEFPROCdoor 

1500 IF (H3-4=T%) OR (T%=6 AND H%=8) D$ 
(13,1) =Ø:P3=P%+1 :X%=08 : PROCscreen: PROCinf 
("Key "+STRS (H3-4) +" opened door") ELSE 
PROCinf ("This door is locked") 

1518 PROCheld 

1520 ENDPROC 

1539 1 

1540 DEFPROCcheck 

1550 IFS%=12 PROCcomp: ENDPROC 

1560 IFS%=13 PROCcons : ENDPROC 

1578 SOUND 18,2,100,3 

1580 PROCOobj(S$):N$(S2$,1)-64: pou 

1598 IFH% PROCOobj (H3) ¿NS (H3, 1) =P3 

1600 H%=S%:S%=A: PROCheld 

1614 ENDPROC 

1620 : 

1630 DEFPROCcomp 

1640 IFH%<>9 PROCinf ("The security comp 
uter#cannot be moved") : PROCheld : ENDPROC 

1659 PROCinf ("You insert the disc and#w 
atch...") 

166Ø r2?1Ø=55:N% (9,1) =65:H%=Ø: PROCscree 
n 

1670 PROCinf ("...as a secret door is#re 
vealed") 

1680 PROCheld 

1698 ENDPROC 

1700 : 

1710 DEFPROCcons 

1720 IFH2«»10 OR t% PROCinf ("The telepo 
rt console#cannot be moved"):PROCheld:EN 
DPROC 

1730 PROCinf("You use the spanner to#re 
pair the broken console") 


ust/ 


:A=H 


op 


1740 t%=TRUE: PROCheld 

1750 ENDPROC 

1768 : 

1778 DEFPROCteleport 

1788 IF t%=Ø PROCinf ("The teleport does 
not#appear to be functioning") :PROCheld 
: ENDPROC 

1790 VDU19,3,14;0; 

1800 PROCinf("Teleporting...") 

1810 FOR A%=1 TO 199: ERO CELO sol 
1820 IFA2-40 PROCdr (X%, Z2) 

1830 SOUND 3,3,1,1: NEXT: VDU19, 3,3;Ø; 
184Ø PS=TS (13,1) :PROCscreen 

1858 ENDPROC 

1869 : 

1870 DEFPROCmonster 

1880 IFA2-X$ IFB%=Y% PROCenergy (1000) :S 
OUND 3,3,25,2 

1899 D%=D%+1:1F D$«3 ENDPROC 

1980 D%=8:PROCplot (A% ,B3 , 236) 

1918 IFA%=X% IFB2«V$ B%=B3+1 ELSE IFB%> 
Y% B£-B$-] 

1920 IFAS«X$ A%= 
3-1 

1930 PROCplot (A%,B%,236) :SOUND 3,3,1,2 
1940 IFA2-X$ IFB%=Y% PROCenergy (1000) :S 
OUND 3,3,25,2 

1950 ENDPROC 

1960 : 

1970 DEFPROCinf (T$) 

1980 VDU 4,17,7,31,0,29 

1990 PRINTSPC (24) ; TAB (0,29) ; 

2000 NZ=INSTR(TS,"#") 

2010 IFN$ PRINT LEFTS(TS,N%-1); «TAB (0,31 
) ¿MIDS (TS ,NS+1) ; ELSE PRINT TS 

2020 IFLEN(TS)>15 THEN TIME=Ø:REPEAT UN 
TIL TIME>LEN (TS) *1@ 

2030 VDU 5 

2040 ENDPROC 

2050 : 

2060 DEFPROCar (X$, 23) 

2070 N%3=X%+Y3%*9 

2080 MOVE 1120-a2?N2*64,716-b$?N$*32 
2090 VDU 2%,19,8,23+1 

2100 ENDPROC 

2119 1 

2120 DEFPROCObj (N%) 

2130 GCOL3,N%(N%,2) EOR4 

2148 PROCplot (4,4,N%(N%,Ø) +229) 

2150 GCOL3,8 

2160 ENDPROC 

2170 : 

2180 DEFPROCplot (A%,B%,C%) 

2190 N%=A%+B%*9 

2200 MOVE 112Ø-a%?N%*64,7ØØ-b%?N%*32 
2210 VDU C$ 

2220 ENDPROC 

2230 : 

2240 DEFPROCheld 

2250 VDU 4,17,N$(H$,2),31,0,29 


3+] ELSE IF A%>X% As=A 
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2260 PRINT SPC(77);TAB(0,29); 


2270 IFH$ VDU N$(H$,0)4229,9,17,7:PRINT 
ce ,0) *32) ;:1F N$(H$,0)-1 VDU9,44 
ð, 32 

p VDU 5 

2290 ENDPROC 

2300 : 

2310 DEFPROCenergy (N%) 

2320 E$-E$-N$:1FE$«0 E%=0 

2330 VDU 4,17,7,31,0,27:?&34F-32 

2340 PRINT LEFTS ("ØØØØØ" , 5-LEN (STRS (E) 
)) +STRS (ES) ;" "; 

2350 ?&34F-24:VDU 5 

2360 ENDPROC 

2370 : 

2380 DEFFNcalc 

2390 A=Ø:FOR N$-0 TO 3 

2400 IF D$(N$,1)20 A=A+8 

2410 NEXT 

2420 =A+CS*3-t3* 4— (NZ (9,1) =65) *16 

2430 : 

2440 DEFPROCend 

2450 ?&34F-32 

2460 VDU4,28,4,17,16,11,12,26,5 

2470 PROCprint ("GAME OVER",384,636,1,3) 

2480 PROCprint (STRS (FNcalc)+"% complete 
",288,572,4,6) 

2490 PROCprint ("<SPACE>", 448 ,508,4,5) 

2500 *FX15,0 

2510 REPEAT UNTIL GET=32 

2520 ENDPROC 

2530 : 

2540 DEFPROCcongrats 

2550 TIME=Ø:REPEAT UNTIL TIME>2ØØ 

2560 GCOL 0,0:VDU 29,640;512;:MOVE 0,0 

2570 FOR A=Ø TO 6.3 STEP .1:MOVE 0,0 

2580 PLOT 85,896*SIN (A) ,896*COS (A) 

2590 NEXT:VDU29,0;0;:*FX21 

2600 PROCprint ("CONGRATULATIONS !",128,8 
21,3) 

261Ø PROCprint ("You have completed",64, 
764,4,6) 

2628 PROCprint("a difficult mission", 32 
,700,4,6) 

2630 PROCprint ("<SPACE>",416,6Ø4,4,5) 
2640 REPEAT UNTIL GET=32 

2658 ENDPROC 

2660 : 

2670 DEFPROCprint (TS,X,Y,A,B) 

2680 GCOLO,A:MOVE X,Y:PRINT TS 

2690 GCOLØ,B:MOVE X-8,Y-4:PRINT TS 

2700 ENDPROC 

2710 : 

2720 DEFPROCsetvars 

2730 VDU 23;10,32;0;0;0; :RESTORE3870 
2740 FOR N%=1 TO 13 

2750 READ N%(N%,Ø) ,N3(N3,1) ,N%(N$,2) 
2760 NEXT:FOR N%=Ø TO 3 

2770 READ D%(N%,Ø) ,D%(N%,1) ¿NEXT 

2780 FOR N%=Ø TO 15:! (G2+N3*4) =Ø:NEXT 
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2790 FOR N3=1 TO 16 

2800 READ R%:G%?R%=] ¿NEXT 

2810 FOR N%=8 TO 15 

2820 READ A$:VDU 19,N%, 

2830 ?&34F-24:?2&30A-25 

2840 P$-21:H$-0:E2-50000:C2-20 

2850 X3=4:Y%=4:2%=226:t%=0 

2860 $r%="537284965F3E9A8816525FB6C93E9 
32845729EC448DA93A01 336Ø53aA5B7281AØ" 

2870 ENDPROC 

2880 : 

2890 DEFPROCscreen 

2900 T$-0:d$-EVAL ("&"+CHRS (r2?P2)) 

2919 L$-P$ DIVI6:VDU 4,17,15,12 p31404,25 

2920 PRINT"ENERGY: "; TAB (13,27) "POSIDROI 
D's 

2930 PROCenergy (Ø) : PROCheld 

2940 RESTORE 3820 

2950 FOR N%=1 TO 18:READ D$ ,A$ 

2960 IF D% READ BS:PLOT D$,A$*64,284B£* 
32 ELSE GCOL 0,A$ 

2970 NEXT 

2980 IF T$(L%,Ø)=P% PROCpad (3) 

2999 IF R%(L%)=P% PROCpad (1) 

3000 FOR D%=0 s 3: = o 15 

3Ø1Ø READ J% M$,0$, SZ 

3020 A%=-1: IF p Ø OR Æ A%= 

3030 B$-1:1F D%=1 OR D%=3 B%=- 

3040 IF (d$ AND 2^D2)-0 GOTO 3130 

3050 FOR N%=-8 TO Q STEP 4 

3060 MOVE J$-N$*AZ*2,K$-NZ*BZ:DRAW J2+N 
$*AS*2 ,M3-NS*BS :DRAW Q$4N$*AZ*2,R$-N2*B$ 
:DRAW Q%+N%*A%*2,S%-N%*B% 

3070 NEXT 

3080 GCOL 0,9 

3090 IFD$-0 IFP%=D% (L3,0) T$-D$ (13,1) :G 
COL@,T% EOR8 

3188 IF(D% MOD2)=Ø AND (28359= Ø OR 2835 
9=192) GOTO3130 

3118 J$-2J$-A$ (D$ r Ø) :KSzK$-AS$(D£,1) 

3120 MOVE J$,K$:MOVE J%,M%-A% (D%,2) : PLO 
T85,0%-A% (D$,3) ,R3-A% (D%,4) ¿MOVE Q%-A2 (D 
3,3) ,S$-A$ (D%,5) : PLOT85,J%,K% 

313Ø NEXT 

3140 V%=X%:W%=Y%:U%=Z%:D%=2:F%= 

3150 GCOL3,8:PROCdr (X$,Y2,Z2) 

3160 S%=Ø:FOR N%=1 TO 13 

3170 IFN%(N%,1)=P% S%=N% : PROCObj (S%) 

3188 NEXT 

3190 A%=-1:IFG%?P% $=RND (5) +] :B%=RND (5 
) +1 :PROCplot (A3,B3,236) 

3200 ENDPROC 

3210 3: 

3220 DEFPROCpad (C2) 

3230 GCOLØ,Ø:MOVE256,444 

3240 MOVE320 ,412:PLOT85,256,380 

3250 MOVE192,412:PLOT85, 256,444 

3260 GCOLØ,C%:MOVE256,444 

3270 DRAW32Ø,412:DRAW256, 380 

3280 DRAW192,412:DRAW256,444 


A$;0; ¿NEXT 
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329Ø ENDPROC 
33ØØ : 
331Ø DEFPROCinit 


3320 a%=8900 :b% 
3330 G%=&ABØ 
3340 DIM A2(3,5),D$ (3,1) ,N%(13,2) ,T$ (3, 
1) ,R$ (3) 

3350 RESTORE 3840 

3360 FOR D%=0 TO 3:FOR N%=Ø TO 5 

3370 READ A%(D%,N%) :NEXT, 

3380 FOR N3=Ø TO4:READ $ (n3+N3*32) ¿NEXT 
3390 FOR N%=Ø TO 3 

3400 READ T$(N£,0),T£$(N$,1):NEXT 

3410 FOR N%=@ TO 3:READ R%(N%) = 
342Ø NS=Ø:FOR Y%=0 TO 8:A%=Y%+8:B3%= 

343Ø FOR X%=N% TO N2-8:a2?X$- aa 
3440 b3?X3=B3:B%=B%+1 : NEXT :N3=N3+9 : NEXT 
3458 ENDPROC 

3460 : 

3470 DEFPROCchars 

3480 VDU23,224,60,122,126,2,42,2,60,126 
3490 VDU23,225,126,127,183,167,126,60;0 
3500 VDU23,226,60,94,126,64,84,64,62, 12 
6 

35198 VDU23,227,126,-2,237,229,126,60;0 
3520 VDU23,228,0;24,60,60,24,0; 

3530 VDU23,229,42,85,85,85,85,54,20,8 
3540 VDU23,230,0;-1,161,225,-1,9; 

3550 VDU23,230;64,160,191,213,191,160,6 
4 

3560 VDU23,231,-2,-2 ,236,-2,238,238,238 

-2 

"3570 VDU23,232,4,9,13,14,24,48, 96,192 
3589 VDU23,233;0;170,170;0; 

3590 VDU23/233;9,229,191,159,165,192; 
3600 VDU23,234,126,66,66,66,126,60,66,- 
1 

3610 VDU23,235,24,36,36,126,-1,86,126,1 
26 

3620 VDU23,236,60,126,221,201,-1,221,98 
,68 

3630 VDU23,237,60,126,126,62,62,62,60,1 
26 

3640 VDU23,238,126,127,-1,-1,126,60;0 
3650 VDU23,239,60,126,126,124,124,124,6 
2,126 


=&96Ø:r%=&9CØ:n%=8AØ2 


3660 VDU23,240,126,-2,-1,-1,126,60;0 

3670 ENDPROC 

3680 : 

3690 DEFPROCenvs 

3700 ENVELOPE1,1,0,-4,0,0,50,0,42,-16,— 
2,-2,126,94 

3710 ENVELOPE2,133,8,4,8,3,1,1,126,0,0, 
-10,80,0 

3720 ENVELOPE3, 1,16 ,-12,1,25,25,25,10,- 
19,0,-10,80,25 

3730 ENDPROC 

3740 : 

3750 DEFPROCtitle 

3760 VDU5,23;10,32;0;0;0; 

3770 PROCprint ("POSIDROID",352,892,4,6) 

3780 PROCprint("By Jonathan Temple",64, 
796 ,1,3) 

3799 TIME=Ø:REPEAT UNTIL TIME»300 

3800 ENDPROC 

3819 : 

3820 DATA 0,4,4,10,3,4,10,21,85,1,12,0, 
5,4,1,21,85, 19, 30, 4,1, 12, 85, 19, 21, g, 6,4, 
19,3Ø,85,19,21,4,19, 21, 85, 19, 12, 9,4,4,10 
,3,85,19,21,5, 19, 30 

3830 DATA 364,236,428,992,492,300,288,5 
24,716,416,788,588,416,236,428,288,492,3 
00,864,588,7808,992,716,524 

3840 DATA -8,-4,0,16,12,8,-24,-12,8,8,2 
4,4,0,4,4,0,4,4,-8,4,28,24,12,-12 
3850 DATA "Recharging pack" ,"Electronic 
pass key","The floppy disc", "The Spanne 
r","The pulse laser" 

3860 DATA (0,48,22,38,35,3,54,31,3,31,38 
,48 


3870 DATA 0,26,3,0,36,3,0,60,3,0,13,3,1 
;,19,1,1,40,2,1,30,3,1,14,6,2,39,1,3,25,6 
,14,62,1,5,1Ø,7,6,24,5 


3880 DATA 6,3,29,2,42,1,57,6,4,6,8, 15,1 
6,18,27,29,32,34,41,46,50,57,59,61,6,1,2 
7370,6,6,7 

3890 : 

39900 MODE7:REPORT: PRINT" at line ";ERL 

3910 *FX 15,1 

3920 END 
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